

le 1 er hebdomadaire des programmes informatiques 



APPLE 2C : L'APPLE 
DU ROUTARD 



Parlir a pied avec un AP- 
PLE 2 a la mam est desor- 
mais possible, ou presque 
aprss le MACINTOSH, AP- 
PLE qui nous offfenl nou- 
veautes sur nouveautes, 
commercialise (debut 

Mai), I'APPUE 2C. Ulllfaanl 
la teehnoloeie GM08, qui 
aeiurg una fait)l@ eensem- 
ffialiim 6l§@triqu@, I'Af^ 
PL-i 2C est un nofUble de 
k tai!l§ d'un attash6=eae@ 
L'alimentalien, problems 
essentiel de tout portable, 
est assuree par un transfo 
externe 12 Volts. Possibili- 
ty d'utiliser une batterie de 
voiture ou de bateau : les 
batteries devraient d'ail- 
leurs etre commerciah- 
sees rapidement 





PETIT, MAIS COSTAUD : 
Malgre ses 3,4 kg, r APPLE. 
IIC possede une puissance 
equivalente a un APPLE lie. 
Equipe d'un 65C02, de 
chez NCR. le IIC dispose 
d'une memoire de 128 K 
octets, d'un ecran plat a 
cristaux liquides (24 li- 
gnes. 80 colonnes}, ainsi 
que d'une prise Peritel in- 
tegree. 




clavier eat francals, 
(AZERTY), (un bouton pef^ 
met de favenlr en 
QWERTY): 

Parmi les points imper= 
urns, on pent glonglor le 
leeteuF de fJiaquette 
(§ pauses) Integra, les 
deux perles series senfi= 

gurable a partir du Sasic, 
(imprimante et modem), et 
le port dedie a la souris ou 
au joystick. 




Une imprimante thermique 
devrait voir le jour assez 
rapidement et permettre 
t'affichage, en silence sur 
papier ordinaire et en cou- 
leur. 

Prix de la configuration 
(128K, 80 colonnes. lecteur 
disque, alimentation, 

adaptateur RVB, un cours 
d'apprentissage) : 12700 F. 
Bonne route. .? 

Suite page 9 



PAGE EDUCATION : 
EN RESUME 

• UNE RUBRIQUE CREEE 
PAR ET POUR DES ENSEI- 
GNANTS 

• REMUNERATION DES AR- 
TICLES (DROITS DAUTEUR) 

• PRET DE MATERIEL AUX 
ENSEIGNANTS DESIRANT 
REALISER UNE EXPERI- 
MENTATION (OPERATION 
PO E ) 



OPERATION POE i 

Une hlstelre extreordlnal' 
re„. 

Ne ratez pas !e numero 
de la semaine prochaine 
(n° 32} : vous y trouverez la 
liste des premiers etabiis- 
sements scolaires benefi- 
ciant du pret d'ordinateurs 
ainsi que le resume de leurs 
projets respectifs. 



FORMATEURS : 
FORMEZ-VOUS OU 
INFORMEZ VOUS 
GRATUITEMENT I 

Une premiere journee avec 
TEXAS INSTRUMENT sur 
i'utilisation de la calcula- 
trice en milieu scolaire 
(date et lieu definis sui- 
vant inscriptions, minimum 
20 personnes), d'autres 
stages prochainement 

avec CASIO... 
II ne nous manque plus que 
les enseignants ! Alors... 



EDITO 



Un wagon de loglcisls pour le 
concours Georges LECLERE. 
que dls-je un wagon ? un train 
complet ! Vous etes malade ou 
quoi ? Je pensals que ce con- 
cours allalt vous interesser, 
mais ii ce point 1 Pour les resul- 
tata le 25 Mai, n'y comptez pas. 
cela ne sera pas possible, nous 
Bommas capable do tester 
beaucoup de loglcielu mals les 
journeea ne tont quand memo 
que 24 heures, Les resultete 
seront annonees ■ pour leg ga- 
qnanta de oheque aat^gone - le 
Ifl Juinet le super gagnsn til tou- 
chers son poida en ordlnateur 
(ou presque I) le 29 Juin. Au 
moins il saura quoi (aire de ses 
vacances ! 

Christian PASCAL gagne le gros 

lot mensuel avec son progr am- 

Suite page 9 

HEBDOCICOB 

Nous sommes la, sur un tout petit 
stand du SICOB (niveau 3, Zone E, 
Stand 540). Venez done nous voir, ca 
nous fera plaisir. Si vous voulez une 
carte d'invitation gratuite, ecrivez- 
nous, nous vous la renverrons d'ur- 
gence. A bient&t. 



MENU 


APPLE 11 Agenda 


nformatique 


Frederic WARIN 


Page 6 


CANON X-07 


Memory 




Page 4 


CASIO FX 702 P Contree maglque 


J.M. LACOSTE 


Page 3 


COMMODORE 64 


Nibbler 


C. ARCHAMBAULT 


Page 5 


VIC 20 


Astro 


V COGET 


Pago ! 


HP 41 


Chen 


G. 09MONT 


Page 17 


MPFII 


Racing 
Pages 


J. QODiLLQN 


ORIC1 


Brain 


Bttphlflt CALLEQARI 


Page 4 


MZ 80 Course automobile 


Francis PEIGNER 


PageS 


PC 1211 


Sous-mahn 


Alain DUBUS 


Page 17 


PC 1500 


Scrabble 


W. VON LUNEN 


Page 7 


ZX81 


Solitaire 


Gabriel GELIN 


Page 19 


SPECTRUM 


Vitaminer- 


Yann GEHAN 


Page 13 


TRS80 


Tierce 


Michel FORTIN " 


Page 16 


Tl 99 4/A (b.s.) 


Memory 


STOBINSKY 


Page 15 


Tl 99 4/A (b.e.) 


Sauvetage 


Philippe PAIR 


Page 14 


THOMSON T07 


Poker 


YvesALUNNI 


Page 3 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Californie pour le meilleur logiciel CHAQUE TRI- 
MESTRE (Reglement en page interieure) 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET VIC 20 . 
HEWLETT PACKARD HP 41 . MULTITECH MP - F II . ORIC 1 . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 



HIPPORE8US trouvez lexpression qui se cache dans la 8.D. de rhippocampe Decompose en trois syllabes dans les trois premieres cases, le ,, tou 
(solution en page interieure) 



t"aevidemmentunrapporlavecl'inlormatique 







I. IM O I 11 Mai 1984 J 



Allemagne 3.50 DM • Belgique 55 Frs - Canada 2,50 $ - Luxembourg 57 Frs - Suisse 3 Frs - 



RACING 



Le but du jeu est de parcourir la distance la plus longue en 
un temps Hmite. 

Au debut dechaquepartie.vousentrezle temps choisi (en 
decimal) puis la vitesse de votre voiture de course. 
Votre voiture circuie de bas en haut de I'ecran sur une 
piste a trois voies. Une autre voiture arrive en face de vous 
et tente de vous tamponner, vous pouvez I'eviter en chan- 
geant de voie a I'aide de la fleche - ou -*. Mais attention, si 
vous sortez de la route, c'est ['accident ! 
Chaque accident vous coOte dix unites de temps ; au bout 
de dix accidents, votre vehicule devient inutilisable. 
La fleche [ vous permet d'augmenter votre vitesse jusqu'a 
la vitesse maximale choisie. La fleche I vous permet de 
diminuer votre vitesse jusqu'a Tarrfit complet de votre 
voiture. 

J. GODILLON 

Instructions : 

Le programme en langage machine destine a produire les sons audi- 
bles au cours du jeu. Ce sous-programme s'appelte "INISON", il est pla- 
ce de I'adresse 4000$ a I'adresse 4040S, i! doit etre charge en mode 
monlteur. Le programme qui suit est le programme principal ("RA- 
CING"), qui doit fitre charge en mode basic. Apres avoir tape RUN, le jeu 
se met en route. 

NOTA: II n'y a qu'une modification a apporterau programme basic pour 
qu'lt fonctlonne convenablement sur APPLE. Les llgnes 20 et 130 du 
programme dolvent etre modlfieeB a I'aide des adresses de scrutation 
du clavier pour APPLE : $ C00O { -16384) et S C 010 (- 16368). Le sous- 
programme en langage machine INISON ne pose aucun problems sur 
APPLE. 



NIP-F« 




13 HCWE 

16 INPUT "U0ULE2-U0US LIPE LES PE 

OU H> 1 *:R*' H0H£ 

1? REM —LECTURE CLfiUIER 

28 POKE 405'5£:,3£ = 0KE 4t}553.<-;7 
POKE 403^4.24^ POKE 40955. 133 
POKE 4395.-;. £3= POKE 40957. 9o 



FOR I « 1 TO IS 

REftD U^ POKE 24588 ■+ I, I 

NEXT [i RESTORE 

IF R* < ) -0" THEN 65 



If eE« RECLE 0>J JEU— 

:.- utai i hthj \r PRINT 'itnCINfi 

UTOB 2 HT&E 17 FP[HT ■ 

Li PRINT PRIHT 'VOUS DEUEZ PaRCiUS 
Lfl PLUS LOHCUC " PRINT * DISTANCE ;>t 
TriPS PECOFD QUE UO09 " Psjuf -'>::-; 
Z EN DEBUT DE PftRTIE " PRIHT PRINT 
ft IS. ATTENTION ' UNE UOITURE '£»-- 

PRINT -TER* DE VOUS £N EJlRECNE* E- 

19 ppiht TAHPONNftHT, VOUS DEURE2 - 
TEP EN' PRINT "CHANCEANT DE OIE - 
U — >>. ET C£L&- PRINT 'SANS SORTIR 
Lft PISTE " 
39 PRINT -AU iOUT DE IS ACCIDENTS. 

E UQI-" PRINT *TUR£ DEUIENT INUTIt-tS' 
E ; CHfiOUE ■ PRINT •ACCIDENT VOUS :: 

10 UNITE? DE TEriPj • PRINT PRIHT 
US POUVEZ ACCELERER ^LiE? l& f_e:hE" 

31 PRINT ■nONTANTE ET DECELERER - EI 
FLECHE" PRINT 'DESCEHDANTE ■ PRINT 

PRINT -BONNE CHANCE ET BONNE COORSE 
PRINT 

32 PRINT "PPESiEZ UM£ TOUCHE PJ'J= : ;' 
HCCR " GET at 

54 p£M — -DEPORT DU JEU- — 
S3 COLL - 1999 UTOB 12 HTo£ Li 

INPUT "TEMPS DEiIRE tXXX) -;TF 

utab 14 mtoe u Input -uitesse 
X<*i«) *tHH (W - HX ♦ £1 

55 REH OESSIn ROUtS— 

z? un • o cp » a o.: : « >) xu = I i 



NCR HCQLOft > 3 
HPLOT 69,0 TO <S9,191 HPLOt -; 9 . 

TO 39.191 HPLOT 49,9 TO «. i$l 

HPLOT 109. C TO 10=. 191 
3 UTOB H HT-B 21 PRINT -TEMPS 
tab i? htoe ii print 'KM 



OLE* 



ROT. 
130 



li 



F0l:E t$4*7 



120 POKE t$393>< 

coll L«3t< 

139 COLL 4095Z T - PKSd 
131 REM ---TEST ACCIDENT' 



GOTO 300 
JI IP >! I *t OR N :■ •# TMCN UtA| 14 

Tul li P»t"r ".;r»4MHMH" '- 80 TC t»« 



1,49 [P T ■ £44 THEN Mt 



1*1 IF 



TrtgH 



U2 |F T > £41 TH| 

14? if see i $ fmeu ase ■ 4 
1*9 v * v - aes i i 1 

L44 rr 1 ff * 1 v'f-S 19 mthi if 
PRINT ■ ■ UTfiB 15 hToe 29 

PRINT TP 
147 IF Y - « S "HEN V ■ 191 KH 

- K»l - 1 UTAB ir HTOB 29 RR 
14S IF TP i = Q THEN UTAB ".2 

HTOE 21 PRINT *.; 'EST PIHI ! H 

POKE 16335-130 --0KE l«407..159 



« t 



CALL t<»4 ;-: r -" . 




149 oc -- 


>«•• ;fif.jt t/t n>ic>" 




139 IP T ■ 


l« ---_■■ f . ;* ■■ . ■ 




- £•! •. • 


".-.■ - KIM 




1«9 If ' • 


; Ij "--■■ c , » 




• 20 S ■ 


P£E» i - U3M) 




IS5 IF T . 


t or r ■ i4« t«e" p • 


:£ 


17* HCOLOB 


■ : : :-» e DR6J i 




Al ■ ■ 






172 IP f ' 


9 <""£« 159 




or :■: ■; 

ir« ip <u 


* ■; -- :■• 'i ep-j : 




THEN ROT- 4 C 


TO £13 


177 REM — 


IOITURE AWERSE— - 




ISO XU - INT ■ PHD ' !■■ l Z • 1 




159 IP KU > 1 THEH XV - 3? 




191 IF XV ■ £ t-en :<y • 7? 




192 IP ;<u 


3 THEN <y ■ 99 




219 VU ■ 9 


POT- 9 HCOLOR - 3 




213 HCOLOR 


- QROU 1 AT XV. ft 




229 VU » vu 


* RCC 




219 IF VU 


- l?l THEN au • « 




HCOLOR » DPOy I OT XU.VU - 


oc: 


ROT* P GOTO 139 




249 V2 ■ YU 






239 HCOLOR 


* 3 DRaw l of xv, tv 




289 POT. b 


COtO 139 




£90 FOP I 


R TO 64 STEP 5 ROT- 


I 


HCOLOR 


3 3ROW a- ■:. . i . 




FEE' ■ - 


1S33S "COlOB - 9 




DROU 1 o 


( HEXt I BfidtOl 




« DROW 1 oT X.V vToB 10 HToJ li 


PRINT * 






£93 POKE IS395.1 F0« 15497-209 




CALL t'J424 GOTO 393 




300 rOPou 


"COLOR • 




DRou 1 o 


L=oH 1 OT Xf¥ 




FOR 1 • 


TO IS , « PEEl' 


6335 - 


NEXT ; "Toe 19 htqb 21 PRINT 




" POKE 1-I153. 1 POKE l««tr 


£31 


Coll 1S424 




303 CP « CP 


* I -p - TP - 19 




310 if ■:= . io t he'i i'tk£ i£ htai :: 


FRIHT "UOITERC FICHUE •" POKE 1S393-19S 


POKE 1549 


. 139 COLL 16354 SET 


•1 


GOTO 03 






3i9 aoto 1 







U3 UTAI - 


-ToS.E DE PORflt"* 




IJ9 0»T« 


£t.-S£.3J!6« K. 


» 14.4 


3.49.USi.1* 14 1* 44. if, 4 





*444- 


H ^ ^l B| 01 4^ U 19 4-3 




*44*= 


L« 44 a* Jo u !^ :a 10 




4919- 


15 4.) ;-: n -r: -;c -£ fp 




4018- 


Ca 03 Ri oO 09 00 00 00 




4020- 


90 09 •" •*•' ■;-:* oo ■■ -~ 




4SS8- 


ttt 99 -:- 17 49 49 20 00 




483S- 


49 18 5-: -;. ; 91 C9 89 DO 




4838- 


Rl 60 93 BO 99 00 90 00 




4048- 


00 


■ 





;appiG 



CONFIGURATION UNO : 

- APPLE lie 

- MONfTEUR li 

- DISK II AVEC CONTROl£UR 

CONFIGURATION DUO : 
-APPLE He 

- MONfTEUR II 

- DUODISK 

- MONITEUR 

- CARTE APPLE TELL (VID£OTEX7E| 

- SOURIS APPLE + MOUSE PAINT 

- PRO-DOS APPLE He 
LOGICIELS SUR DISOUETTES 
POUR APPLE He ET APPLE II 48 K 
EDICIELS 

MATHS I : 

• foimes indeietmifiees, iimites. 
log .if iid me; el e*poneniiell« 
MATHS 2 

• lutes e! iri»?g'alei 
MATHS 3 

• riirjonomftrie 

• nombrei comply k« 
PHYSOJEI: 

• induciion el condenwteu'S 

• produil vectorial 
PHYSIQUE 2 : 

EDI- LOGO 

le fameun langage LOGO, en fran^ais 

(fans la veivoi O'iginale 

CARTE PORTE-PAROLE 

Une von daire el aniCuKe voui parle 

en francati 

PORTE PAROLE 

Voi/e miao-ordinateuf peui patler I 



VI-FI NATHAN 



Prix TIC 




1 2 500.00 


D 


J 7.500,00 


□ 


5.790.00 
1.209.00 
557.00 


D 

a 
a 


295,00 


D 


295.00 


□ 


295.00 

295.00 


G 
D 


295,00 
295.00 


a 
□ 


295.00 


D 


1490.00 


□ 


1 395.00 


D 


t 395.00 


D 


395.00 
395.00 
395.00 
395.00 


a 

u 
■ i 
n 



LOGICIELS DE JEUX 
POUR APPLE II ET He 



• l": :., 



LOGICIELS 

POUR LA VIE PROFESSIONNELLE 

POUR APPLE II ET lie 

• Calculaince 



flcommodore 



COMMODORE 
Commodore 64 Pal 
Leaeur de disques Vic 1541 
Tracer de courbei Vic 152 
Cable pefitel 64 
Cable video 64 



Prix TT.C 




2 990.00 


i 1 


3 3 BO. 00 


! I 


1 950.00 


1 1 


1 50.00 


1 1 


1 50.00 


□ 



zx spectrum 



INTERFACES 

Spectrum 48 KPAL 

Carte B enirees/iO"ies 

Carte 8 entree* anaiogiquei 

Interlace manette dejeux 

Manette dejeux 

Modulaieu/ UHF noir et blanc 

Imprimante Alphacom 32 

Amplilrcateur sonore 

Exteniion 32 K 

lnterfaceCentroriics/RS232 

Cable pour Centronics 

Boite 5 rouleaux de papier Alphacom 32 

Boite 5 rouleaux de papier 

pour imprimante SINCLAIR 

Cordon Pentel/Moniteur 

Adaptateur Peritel 

Interface manettes dejeux programmable* 

JEUX 

Mined out 
Space intruder 
Androide 
3D Tank 
Meteor ids 
Jaw* 

Fruit machine 
Gold mine 
Spawn of evil 
Road toad 
JumpingJarJt 

Arcadia 
Afididum 
Molar maul 
Zip zap 
AlcbimiM 

JEUX DE REFLEXION 

Simula teur devol 
Othello 

M.Tl.l.j.'l 

EDUCATION 

Math 



Prix TT.C 




1.965.00 


1 1 


395.00 


1 1 


395.00 


1 1 


245.00 


1 1 


120.00 


1 1 


!90.p0 


1 I 


1.190.00 


1 i 


160.00 


: i 


560.00 


i i 


650.00 


11 


150.00 


1 i 


150.00 


u 


175,00 


n 


95,00 


ii 


360,00 


1 1 


395.00 


u 


75,00 


ii 


86.00 


1 1 


86.00 


1 1 


75.00 


1 1 


75.00 


' i 


75.00 


n 


75.00 


: 1 


75.00 


i 1 


75.00 


1 1 


75.00 


1! 


75.00 


1) 


95,00 


i 1 


95.00 


II 


95.00 


1 1 


95.00 


i 1 


95,00 


1 1 


95.00 


; i 


95,00 


■j 


95,00 


ii 


75.00 


i i 


54,00 


i i 


115.00 


ii 


140.00 


i i 


54,00 


r i 


54.00 


i | 



GESTION 

Directeur financier 

Gestion de fichiers 

UTlLrrAIRES 

Pascal 4 T 

Devpac AwemDieur/Deiassembieur 

ZX Trans 



260.00 
160.00 I 
95.00 I 



NOUVEAUX LOGICIELS "HAUTE RESOLUTION 

- ANT ATTACK 
-FRED 

- FIGHTER PILOT 

- NIGHT GUNNER 

- SLUE THUNDER 
-BLADE ALLEY 

- HUNCHBACK 

VI-FI NATHAN 

LOGICIELS POUR SINCLAIR SPECTRUM 



• i.a course au robot 

• Combienfont? 

• Des en chute liore 
LOGICIELS F.D1CIEL 
Interceptor 



Pillage c< 



120,00 


n 


120,00 


II 


120.00 


1 I 


120,00 


n 


120.00 


: i 


120.00 


; i 


120,00 


□ 


125,00 


n 


125.00 


ii 


125,00 


i : 


125,00 


a 


130,00 


n 


130,00 


u 



THOMSON TO/7 



PROMOTION TO/ 7 

Unite centra le lecteur enregistreur 

MATERIELS THOMSON TO/7 

Unite centraie 

Lecteur enregistreur 

Extension memoire 16 K 

Contrfileur com 

Son et jeux 

Memo Basic 

LOGICIELS ANSWARE 

Budget familial 

Car net d 'adresses 

Qtiet votre bibliothtque 

NOUVEAUX LOGICIELS 

EDUCATTFS 
THOMSON TO/7 

Initiation au Basic [vol 4| 

Ltcle des chants 

Lt ronde des formes 

LOGICIELS DE JEUX THOMSON TO/7 

Melirnfmol 

Ouest (module de basel 

Quest |K7 Histoire-Geo | 

Ouest |K 7 Sportl 

Ouest |K7 Sciences et Decouvertesl 

Yams, poker, solitaire 

Cocktail 3 

LeLoto 

sindair" 



Clavier mec.»nir|uc V\BS' 
Caite extension 64 K 
Cane qener.iince de e.iracteies 
Carte sonore |5 OCUvtlJ 
Carte ent/ccs/soihes |8 C/S) 
Carte B entrees ana log iques 
Carle interlace manetlc dejeux 



PRIX TTC 




3450.00 


i": 


Prix TT.C. 




2480.00 


1 ! 


800.00 


i i 


750.00 


: i 


850.00 


1! 


600.00 


i 1 


480.00 


U 


450.00 


n 


480,00 


1 1 


490.00 


1 1 


525.00 


u 


195.00 


II 


175.00 


1 1 


145.00 


U 


425.00 


1 1 


325,00 


1 1 


65.00 


II 


6S.00 


1 1 


65.00 


1 1 


I7S.00 


i ; 


95.00 


1 1 


125.00 

7V< 


31 



Prix TIC 




580,00 


n 


140,00 


i 1 


815.00 


i i 


437.00 


11 


432.00 


1 1 


395,00 


1 1 


395.00 


1 1 


245,00 


1 1 


120,00 


1 1 



iuppiem 



Interface Cenironics 

Imprimante grapinqie Seikoscha 1 

imprimante alphacom 32 

Boite 5 rouleaux de papier Aiphac 

Boite 5 rouie.iux de papter 

pour imprimante SINCLAIR 

NOUVEAU PRODUIT : 

CMOS memoire constante 12 KRA. 

Module 2 K 

JEUX 

invaders 

Patrouiiie de I'espace 

Scramble 

Rex Tyrannosaure 

Gulp 

Stock car 

Pan ique 

Casse bnques et pendu 

JEUX DE REFLEXION 

Othello 

tehees 

Simulation devoJ 

Tric-Trac (Backgammon) 

VOUS 

Biorythmes 

Chiromanoe 

GESTION 

Com pie bancaire 

Vu-calc 

Vu-file 

ZXMultifichiers 

UTILITAIRES 

Assembleur Artie 

Monneur-desassembieur 

fast load monitor 16 K 

Fast load monitor 64 K 

Toolkit Artie 

ZXTri 



990,00 


D 1 


2 500.00 


B 


i 1 190,00 


. 


1 50.00 


fJ i 


175.00 


n 


360.00 




450.00 


o 


55,00 


■J 


65,00 




65,00 


: 


75.00 


a 


75.00 




75,00 


a 


75,00 


a 


75,00 


. 


75.00 





95.00 


o 


95.00 


. 


95,00 


a 


85,00 




85.00 


a 


65.00 




85.00 




95,00 


□ 


110.00 


□ 


110.00 


a 


1 50.00 




75.00 


a 


75.00 


a 


7S.00 


D 


75,00 


G 


75,00 


□ 


75.00 


a 



BON DE COMMANDE 
TARIFS AU 11/5/1984 



Pp£nom . 
Adresse_ 



Code Postal 

vuie 



Ces prix iont Indtatlfs et peuvent etre modi- 
fies sans preavls. 

Prodults dlsponlblcs dans la lltnlte de nos 
stocks en magasln. 

Participation aux frals de port et d'expedltlon 
en recommande pour les loglciels : + 30 F. 



LA REGLE A CALCUL : 

65/67, bd Saint-Germain, 7500S PARIS 

Tel. : 325.68.88 

Telex : ETRAV 220064 F/1303 RAC 



X 
J 



CONTREE MAGIQUE FX702P 

■ m 'yflfi &&T *V 



Vous etes sortis indemnes des donjons precedents, mais 
celui-ci viendra peut-etre a bout de votre adresse en fai- 
sant surtout appel a votre reflexion. 

J.M. LACOSTE 
Votre personnage. au debut possede 30 PDV (Points de Vie), 3 
(leches et 5 en fraicheur (votre etal physique). 
Votre personnage va se deplacer sur une surface de 10 x 10, 
selon les qua tre directions habit uelles Word. Est.Sud. Ouest. II 
va falloir qu"il decouvre le temple sit ue dans la zone hachuree. 
Votre route est semee de monstres plus ou moins importants 
selon la nature de la case traversee. Les monstres rencontres 
pourront etre de cinq sortes. regroupees dans le tableau sui- 
vant : 




Depart 



'//. 










/ 99 


50 
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40 










49 


30 










39 


20 










29 


10 










19 


1 


2 


3 4 


5 6 


7 


3 9 



NOM DU 

MONSTRE 

Serpent 

Loup 

Tigre 

Balrog 

Dragon 



50 
100 



33 
66 



99 



POINTS 

D'EXPERIENCE 

10 

20 

30 

40 

50 



Fraicheur 4 : lasse : 80 % de chance de toucher 
Fraicheur 5 : normal : 100 % de chance de toucher 
Fraicheur 6+ (jusqu'a 9) pleine forme: 100 % de chance de tou- 
cher 

(Lorsque la Iraicheur tombe a 0. le personnage est mort). 
La fuite nereussit qu"une fois sur 3 et lait revenirde 1 lignevers 
le sud et de 1 ligne vers I'ouest. 

La fleche n'a que 3 chances sur 4 de toucher sa cible. Lors- 
qu'ellela touche. elle tue directement ranimal et le joueur Unit 
de la defendre au contact 

Le joueur perd Tavantage de commencer le combat s'll rate sa 
cible a I'arc ou s'll rate sa fuite. 

Apres une victoire. vous pouvez decouvrir des tresors : des 
sorts ponctuels. montent ou descendent votre fraicheur. La 
decouverte d'un elixir se traduit par une augmentation de 
10 PDV ou d'un point de fraicheur. 

On Irou ve aussi parfois des pairesdef leches et des bourses de 
25 pieces d'or (PO). 

Arrivee au bout de votre periple. n'oubliez pas de payer le gar- 
dien du temple 50 PO. car ce monstre est invulnerable et vous 
etranglera aussitdt si vous n'avez pas cette somme. 



Durant !e combat : Action (C (combat au contact), F {fuite), 

A (arc)). 

Le personnage selon sa fraicheur a plus ou moins de chances 

de toucher le monstre : 

Fraicheur 1 : epuise : 20 % de chance de toucher 

Fraicheur 2 : 

Fraicheur 3 : fatigue : 60 % de chance de toucher 



LIST RLL 

«m PRG LIST 
W. 36 PR6: 1669 
P6: 1686 STEPS 

2 s=e 

5 hbit n-.m "-c 

DHTREE MRSiaUt- 
»iZ=8:H=3BiV=3i 
T=5;D=8:I=8 

16 U=56+IHT (RAHS* 
58 

15 SS8 5a:pRT "VGli 
S ETES EH";Z:6S 
E 8e:SSB 56: IF 
M THEH 38 

26 aSB 185: IF L*l; 
IF rW.b'SB 146 

36 BSB 196:6S8 285 
:PRT lis" PDV."! 



liVS" FLECHES," 

;i;T:60TO 15 
58 Iff "OIRECTICH 

H/E/S/0 ",V*:IF 

Vt=XlZ=ZtlB 

55 IF Vi="S";Z=Z-l 

8 
SB IF v'5="0"!Z=Z-l 
65 IF ¥t="E":Z=Z*l 
78 IF Z=tl THEN 1e3 
75 RET 
88 IF f;fiHi*!8e>Z;F 

RT "TERRfilH DEC 

6iJ¥ERT":D=2:RET 

85 PRT E$:D=1'.«ET 

9BK=8:IF RANK. 15 

«D;PRT "CfflJiE." 

:B=e:C=B:K=l:RE 

T 

S5 I=IHT (RBH«»5:F 

rt "un "may. 



6=1111 (t)«t5):C 

=FS8C (8(I*5)!« 

18B 
188 G=iNT (RflNitB*! 

:PRT "WEPiQi" 
FDTtRET 
185 L=8: IMP "8CT10H 
(C/F/fl) ",XliI 

F Xt=°C!6=T«6 

:P=16!H=8tRET 
118 IF M="F". THEH 

138 
115 IF Y=8;PRT-"PU1 

S DE FLECHES !» 

tSGTO 185 
128 M-liPRT "TCHfl 

c !"iif rbhiu 

5;PRT mi);' T 
UE": 8=8: RET 

125 PRT "RHTE !** 
l:RET 

138 IF MHfU3SZ=Z 



285 



218 



228 



-li:PR 

REUSSIE !":L=i: 

R=;:RET 
135 "ST "FUITE BUTE 

E !":H=;:RET 
148 IF H=l;H=8:6DT8 

158 
145 ESI i65:!F m; 

PRT 81(1)1" MR 

T*:S=StI8«(IHi 

RET 
158 BSE 188: IF W 

THEN 9e3" 
155 SSB 185: IF L=l: 

RET 
168 PRT "VOUS COHTI 

NUEZ"i60T0 148 
165 IF RflHJ»188<6;P 

RT "TOUCHE i":6 

=8-iHT !R8Hl*Ht 

l:j=l:L=8:K=8 
178 IF K=S;K=8:6$e 

588:RET 
175 PRT "RATE !":RE 

T 
188 IF RRKt*186<C;P 

RT "OUCH !":«=» 

-INT (RAHU6H: m 

J=B!6S8 588:RET 

185 PRT 8$(I)1" VOU 

S RBTE":RET 1815 
188 IF R=1!R=8:RET 
131 IF RAHt(.75lRET 
185 PRT "UH COFFRE 

FtVEC ";:IF RAH* 1825 

(.33 THEH 266 
196 IHP •iiUW.U 1858 

:IF W="F"iT=H 

l:RET 
198 H*18:RET 



1885 



m "25 PIECES 
D M'ilMM5:8£ 

IF RRNIi.85;T=T 
-liPltl fMIOff 

'>:":':;■ TiK T 

HEN )e3 

IF PftHii.9;T=T« 

l:PRT "FRfllCHEU 

R:":T:A=I:IFT; 

9:1=9 

IF A=l;R=6:RET 

IF RSN*),9:y=y» 

2:PRT "VOUS TPO 

UVEZ 2 FLECHES" 

RET 

IF ,I=l;PRT "IL 

RESTE AU ":At(I 

»Bi" PM":RET 

PRT "IL VOUS PE 

STE"i«;» ?8¥":R 

ET 

PRT !."V0US AFF 

ROHTEZ LE SYOR" 

:IF 8(58 THEH 1 

858 

PRT "VOUS PA'lEZ 

LE 6V0R";0:" P 
IECES OR" 
PRT "VOUS ETES 
LE K8ITREVDE 
LB CONTREE IffiSI 
SUE" 

PRT "RVEC'iSi" 
PE";:BSB 9862:1 
F S>SXiSIIC :STA 
T S 

PRT "REf»:";S 
leSTOf : BOTO 5 
PRT "LE 6V0R Vu 
US ETRANbLEV'y 
6US BEVE2 AVOIR 

58 PO" 



■ 
T 



<-'■ u m- \(M 



8 =8 
6 = 188 

i = n 

D =2 
E( =FORET 

F =4 

6 = IBB 

H = 16 

1 =4 

J =8 

K =6» 

L = 8" 

il = 6 

H = 8 

= 25 

P = 156 

6 =49 

R =8 

:36 



:69 



s 

T 
U 

Vi =H 
a =22 
W=L 
V = 2 
Z =28 
A8!=SERPEHT 
MKOUF 
82!=L!SRE 
83S=8ALR06 
»«=DRPFOH 
A5 = 5,25 
86 = 38.33 
A? = 48.66 
B8 = 56.75 
89 = 186.99 



POKER 



Le T07 sombre dans I'enfer du jeu avec ce programme 
conformeau poker telqu'il est possible delepratiquer sur 
les machines de cafe. 

Yves ALUNN1 

Mode d'emploi : 

Le joueur dispose du jeu dont la longueur inferieure a 5K per- 

met de I'utiliser sans extention memoire. 

II apparalt alors une page de presentation durant laquelle sont 
effectuees les initialisations. Pour debuter le jeu il faut ap- 
puyer sur la touche 'D' ; tant que cette touche n'est pas pres- 
see ie generateurde nombres aleatoires tourne, ce qui permet 
de varier la donne. 

Le jeu commence a ce moment la. II faut tout d'abord miser 
sans depasser son credit qui est a I'origine egal a 10. Cinq car- 
tes sont distributes et on peut se les faire changer en repon- 
dant '0' a la question" no uvei I e donne ?". Dans cette hypothese 
on demande le nombre de cartes qu'il faut changer et leur nu- 
mero si ce nombre est inferieur a cinq. 

A ce moment la le programme etablit lavaleurdeladonneetsi 
elle correspond a un cas gagnant place un carre a cdte du cas 
considere ; le joueur peut alors quitter ou doubler en tapantsur 
les touches 'Q' ou 'D'. S'il double une carte est tiree, il aura 
prealablement du deviner si elle est inferieure ou superieure a 
8 (touches T ou 'S'). 

Si son choix est juste il peut remettre en jeu son gain. Si il perd 
ou si le 8 sort ou s'il quitte le joueur doit miser a nouveau jus- 
qu'a ce que son credit soit nul. 

Dans ce cas !a page de fin de jeu a p pa rait qui off re la possibility 
de rejouer en repondant 'O' a la question "nouvelle partie ?". 



-«o 




S CLEAR* ,SiC0MS0LEe/24«CLSt8CREE»ie,B,e 
3 0EFCR*<9)-162*«e» 16S. 17,50. ?i r 14G, £7 
3 DEFCRfe5>«0, 142/145, 145* 145/ 145/ 142.0 
(8 DEF8TRfl«DEFmTB-R!DlH<K52/,B<32>/(K14 

IS C^=10 

28 IFrY<>9THENf»5ET< r.-.rv <' ' 

23 'PRESENTmTION 

25 PE3TCiRE:COSUBI0e9f C = 0:FT-6 

48 OHFL COT099,I08 

*,H PEiTClRE 

55 BOxr'-B, \V'f-' ]19/118>,£ 

57 '(.FFICMfttE DE8 OJFFEPEMTS CftlN 

BLES 

6& HlIfiB0,e: LOCftTEB. I 5i COLOPii, 0: Vf I NT "FL 

USH POYOLE: 588"ICHR*<124>I"FLU8H1 288") 

CMPI' 124 .;"C0ULEUP: 26'i 

62 PPINT-[.OUBL£ PF.IPE: 2'|CHR8(124>* "( 

ftPPEi 188"|CMR«( 124); "SUITE.." 18"; 

i,A PPjNT'PfilPE •:■?'..: l M ;CHPi. Il4 ■: -r 



ULL.: 58"; CUP t' 12-1 • J "6REI.HN. : 5" 

66 GOSUB1506: 'HFriCHftGE DE LA MISE 

76 B0XF<8,149>-<319, I5B ',2 

&0 BOXF'ie. I 77 >-' 319- 174>,2 

90 C0MS0LE22,S4iCL'S:':-CPEEMt,.fj 

95 PRINTCHPf. 17>: L INE 1WPUI" C0MB1EM HIS 

EZ VOUS ■> ";AN:EpI*VCL'Ai>0:IFEN>CP OP eh-; 

1THEM95 

100 CR»CP-EN:crji;iji3l5BO 

120 GOSUB2000 

138 CLS:C0L0P6:PP1HTCMP>' 17 > : PPIKT-NOUVE 

LLE DONME ?-:f.N=lWPUTt' 1 ■ 

135 IF ftN="N"IHEN36a EISEIFhN' > H 0-rHENI3 

8 

150 CL&JPPIHTCHP*' i 7 >:pPINT"NrjflB»E I'E C« 

RTES ?":AN-INPUT*' 1 • 

155 tt-VftL'ftH'i 1FN>50RN< 1 THEN 150 

160 FOPI=1TON 

165 1FK-5THEHE' I >=|:G0T0174 

170 CLSiPPINTCHPf 17 >:PPlNT"HUnEPO t'E LA 



";i;"e CARTE"iE< [>-VftLaNPU7»tl>i: IFE' I> 

< lOREf I>>5THEN170 

172 F08K-ITOI-1: IFE(K)"E(1 )THEN178ELSEME 

XTK 

174 X-CE(I>-1)88 

176 PRINTCHR*'20>:C0L0R4,2:B0>:F(Xt-lr l)-( 

X*6, 10)CPJ(8>:COLOP6,0 

136 FS=-1!R=C(E(I>J 

198 A<R)=f1ID*(ft(R),2> 

200 G0SU92236:NEXTI 

E10 FORI=1TOK: J=E(IJ 

220 FS=1 

238 G0SUB2208 

270 COSUB2100 = ATTPBO.0:NEXTI 

300 COSUB3000:1FFY':. I 07HEHPSEI^FX,FY>* ", 

/3 

310 G0SUB1500 

320 FORJ = lT05:o<C< J>) = l11M'fi<CCJ)),2) 

330 0=flSC(ACC<:j3 J>:0?rj-48) = CI(0-48>-I 

340 K=ASC<RIGHTJ(fi<C<J)>,!>>-64!D<|0=CKK 

350 NEXTJ 

368 IFGO>8THEHCLS:PPIMT"(0;UJTE-'(D>0UBLE 
7 , *:PRIMTCHR*<17)SfiN=INPUTJ(l>: lFHN = "f»- 
THEN FL=e:G0T048e 

370 FL-ltSCREEN,0iCR"CR+GAfEH»8iCO8UB158 
8: IFCP>0THEN 20 
380 'FIN DE PARTIE 

332 RESTORE: CONSOLE*. 2*i : CLS: COSUBI 080: CO 
NSOLE8 f 24:LOCflTE0,O:COLOP,8:PRINTCHRJai 
>;CHR*ai >;CHR*<I1J 

335 ATTR81, i:C0L0R4, 5: LOCATE 1, i:PRINT"LE 
";:L0CATE1, 18:PRINT"V0US A RUINE..." 
390 LCCATE0,£3:COLOR3,O:ATTPB1,0:PPINT"U 
NE AUTRE PARTIE T 

395 AN=INPUTt<l>:IFHN="0"THEM CLS:FL=3:C 
R=18:C0T025ELSEEND 
400 'LE JOUEUR TENTE DE DOUBLEP 
105 CONSOLES. 12:CLS:SCPEEN6,0 
418 ATTPB,i:PRINT 

428 PRINT"LA CARTE GUI VA ETRE TIREE"/ " 
SERA-T-ELLE INFERIEURE <I>",'OU SUPEPIEU 
RE (S> A 8" 

430 AR=INPUTIU>:ATTRB0.8 
446 IFAR<>"I"HNDfiR<''-S"THEN43e 
450 R=IMT(RND»52)*I 
460 Q=ASC(A(R>) 

478 J=5iF5 = 8:GOjiJB2 = .|[t:G03UB2iee 
475 IF0=49THEN0=62 

438 IF<0>56hNDAP^ i, S" 'OR'O - 56HPIDAR=" I " >TH 
ENGA-GA»E ELSEGA*BiFORK-lT05fle*HEXTKiCLS 
SG0T0378 

435 COLORS. 0!PPIMT"ENJEU :"!Gft 
490 PSET<2I, I1)CHR*< I7XATTRB8, UC0LOP6: 
LOCATE0. ]0:PPIMT"CQ>U1TE OU ( b 'OUBLE " : AT 
TRB6.0 

588 AP=IHPUTi(l>:ATTRB.6 
518 IFARO'O'ANDAR-. "D-THEN508 
520 IFAR.= "D-THEN480 EL3ECLS: G0T0378 
999 END 

1808 'PRESENTATION 
1881 1FFL=0THENCL3:SCREEM4,8,O 
1885 F0RJ=1T05 



1016 



(J-l)*8 



1020 B0X(X«3t7,7>-<X«8*56,88>.7 
1030 B0XCX«8+6,6>-<X*S*57,89>.7 
1048 CDL0P4,5:e0XF(»l, ] > -CX*-6. 1 >GR »• 6 ) 
1050 ATTRB1. l!L0CATE»3.6.6:PEA0Al:PPINT 
Al:ATTRB8,0 
I860 NEXTJ 

1070 IFFl ■0THENCONSOL.E 12, 24: RETURN 
1075 PR INT: PR I mt : PP I NT : PP I NT: PR I NT: PR I NT 
1030 COL0R3.8 

1090 PRINT'APPES AVOIR MISE VOUS RECF-VEZ 
5 CARTES. SI UNE OU PLUSIEURS DE CELLES 
CI NE V0USC0NVENA1ENT PAS VOUS ftVEZ LA 
POSSIBILITEDE VOUS LES FAIRE RED1STPIBUE 
P UNE FOIS." 



I X-l 



1110 rORJ'ETOH 
1120 F0PI=1T04 
1130 A'X>*CHPI' 



14-J) 



»1 



• CHPi' I«64 ■-::■ :: ■ . 



1H6 NEXTI,J 

1198 COL0R2 

1200 PRINT:PPINT:PP[NT- TAPEZ SUI 

OUP COMMENCER LE JEU" 

1210 Z»RND:iriNKEYt<>"t"THEN1218 

1280 C0NS0LE12,24!CLS 

1290 RETURN 

1500 'AFFICHAGE DE Lt. 1 

1501 BOX<0.I9>-<39,£0; 
BO, 1 
1518 LOCATES, 20:PR!NT"CREDIT 



2 f, "MISE :";EN:COLOP6:ATTRB8,0:RETURNt 

2008 'TIRAGE DES CARTES 

2818 FORJ=1T05 

2820 FS=1 

2030 G0SUB2288 

2858 GOSUB2106 

2066 CDL0R5,8:ATTPB,6:LOCATE»I. 12,8:PRI 

NTJ:ATTPB8 

£870 NEXTJ 

2A88 RETURN 

2100 'DESSIN DES CARTES 

2105 ATTfiee,8:PRIHTCHR*(20> 



2118 



=CJ-1>»8 



2128 B0X(X«3*7,7>-(X»a»5ri,3S) 1 

2125 B0X<X«8»6,6>-(/:t8+57,89),5 

2138 COLOR, 7:B0XF(Xtl,iJ-(X*6,I8)' * 

2135 PSETCX + 1, l>GR*Cl>,P:PRINTGPi'2'' 

2140 PSET(X+[,2)GPJC3>:PPINTGRf<4) 

2145 PSET(X*5, 1 )GR*(I 1- PRINTGRK2* 

2150 PSET.X*5,2>GRt'3>:PRINTGRt<4> 

2155 PSET(X+1,9>GRK1):PPINTGRJ<2) 

2160 PSEKX+1, 18)GPfr:3':PPINTCR»<4) 

2165 PSET(X*5,9>GR*'1>:PP1NTCR*<2) 

2178 PSET<X+5,10iCPJ<3»:PPINTGRI{4> 

2188 ATTRB1, 1 :L0CATEX*3. 6,0: PPINTCHRKO) 

2190 RETURN 

2208 'TIRAGE ALEATOIRE 

2205 R=INTCRND»52>*l:C<J)=R 

2210 IFA<R>>"a*THEN2200 

2220 A(R)=*A"*A<R> 

2230 G = ASC<MIDI<A(R>,2*(FS = -I>)j:0(0-'I8) 

=0(0-48>*FS 

2240 *>ASC(RlGHTi(A<R>, 1)?-64:0N K GOSUB 

9108,9280, 9308, 9468: C" K?=D<IO+FS 

2258 IF0=58THEN0=133ELSEIF0^59TMENe=86 

2260 IFG=68THENG=63ELSEIF0=61THEN0=82ELS 

EIF0=62THEN0=49 

2236 RETURN 

3688 'DECOMPTE DES POINTS 

3018 F0RJ=2T014 

3020 IFQCJ)>lTHENCiC*10-CO<J>-2): IFJ<18T 

HENFT=1 

3030 NEXTJ 

3840 C=INT<C)= IFC=0THEN3166 

3645 IFC=1ANDC=FT THENGA=0: FY=0: RETURN 

3058 IFC<3THENGA=EH»C:FY=18-C:FX=13:RETU 

3868 IFC=18THENC6=5«EN:FV=17:FX=37:RETUR 

3878 IFC=11THENGA=50«EN!FY=17:FX=24:RETU 

3880 IFC=100THENGA=C«EN:FY-16!FX=24:RETU 

3188 FT=0:FOR J-IT04 

3110 IFD(J)=5THENM=I:GOTO3130 ELSEM=0 

3120 NEXTJ 

3130 C=6(C<I)>X0RBCC(2J>XORB<C<3)>X0PB(C 

|[4)JX0R8(C(5)) 

3148 H=((L0G(C-'31>'L0G(2>)) 

3150 IFlNT<H>OU ANDC07681 THEN 3208 

3160 IFM=1THENIF»»6THENGA-500«EN:FY'15:F 

X=13: RETURN ELSEGA=266«EN:f Y-15:rX=24:RE 

TURN 

3178 CA=ie»EN!FY=l 6: FX-37: RETURN 

3266 IFM=0THEN GA=0! FY-0: RETURN 

3216 GA=20»ENIFY-15:FX=37:RETURN 

9006 CARACTERE3 CRAPHIOUES POUR LES CART 

ES 

9805 DATAP,0,K,E,R 

9100 DEFGRf<l>-0, 1.3,7,3, 17,57, 127 

O110 DEFGR*<2>«0,O. 128. 192,128, 16,56,252 

il?A DEFGRi<3)-57, 17, 1.3.7.0,8,0 

DEFGR*<4>-56, 16, 0. 128. 1 92, 0, 0. 8 

p-e 

RETURN 

DEFCR*tl>-e,0, 1.3,7, 15,31,63 
DEFGR*<2>-8,0.0, 128, 192,224,240,248 
DEFGRi' 3 .=31, 15,7,3- 1,0.0.8 
DEFGRti4;. = 240,224,l92,12e,0,O,O.O 



9130 
9140 

9199 
9280 
9218 
9220 

■■. .-'I' 

9240 
9299 
9300 
9310 
9320 
9338 
24,0 
9340 
9399 
9400 



P=! 

RETURN 

DEFGRIU > = 0, 8.1, 3,7, 15,31,63 
DEFGR*<2>-O,0,6, 128,192,224,240,248 
DEFGR*(3)-63.63,3I.3,3.7, 15,0 
OEFGRi(4)-£40.24B,24e, 129,128.192,2 



RETURN 

DEFGRtU' -0,0, 28. 62. 127,127,127,127 

DEFGRt(2>"0»«< 112.246,252,252,252,2 



MEMORY 



WEMORYest unjeu tres simple, dans son principe. 
Un certain nombre de cartes est represents face 
cachee sur I'ecran et il s'agit de les retrouver. Pour 
cela on dispose des touches de emplacement du 
curseur dont on se sert pour placer le point d'inter- 
rogation sur les cartes que Ton veut voir. On I'indi- 
que alors au X07 en appuyant sur la touche de 
fonction F6. On ne peut voir que deux cartes a la 
fois. Si elles sont identiques, elles sont enlevees 
du jeu, sinon apres un court instant elles sont de 
nouveau retournees. 

Alain TARDY 

Mode d'emploi . 

Au debut du jeu. le CANON X07 demande combien de joueurs vont 
joueret leur nom. Puis il demande le niveau du jeu. Plus il est eleve, plus 
il y a de cartes :au niveau 1 on a 16 cartes et au niveau 6, 72 cartes. Le 
niveau des reflexes regie proportionnellement la duree de I'affichage 
simultanee des deux cartes demandees. A noter que le X 07 affiche . 
d'abord la premiere carte avant de demander la deuxieme. 
Silejeu sederoule a plusieurs.chaque joueur rejoues'iltrouve uncou- 
ple de cartes, sinon c'est au joueur suivant de tenter sa chance. Le 
gagnant est alors celui qui decouvre le plus de couple de cartes. 
Si vous etes seul a jouer. alors sans aucun doute que vous trouverez 
toutes les paires de cartes. II s'agit alors de les trouver en un minimum 
de coups et un minimum de temps. 

La fonction SCREEN (X,Y) qui renvoie le code du caractere aux coor- 
donnees X et Y permet de donner un effet de superposition au point 
d'interrogation "?" comme les lutins sur d'autres materiels. 
Bonne chance et bonne memoire ! Remarque : si la touche de fonction 
F6 etait deja predefinie, la fin de la ligne 40 est inutile. 




. ,o:cls:cleaR300:loca 
■, l :PpInt'memO»»- 
INE<3>»,3>-<7*»,3>ILIH6-|79, 17 



■-. : 



L.INE- 



:o cdpi-ito50o:nE!<t 

10 CQNT«I233>»-2JB, 13c 16' 

D g. i-a,2J3.o-:KE^*'6i = 'm»i 
so cls:gosub4ooo 

60 1FJ*=ITHENE-3:CA-B 
70 IF7X"2THENE-7:CA-12 
ao IPZ\«3THEKE»6:ca»i6 
'" IF;%-4THENE=a:CA-Z2 

100 ifz*-sthene«3:ca-zb 
ho ifz%-6thene=1 :ca-36 
1vo 'generations des cahti 

20O C '=2>Ca;DIMA»ict-i ) :/.■- 
!10 FORI-OTOCA-1 



220 F 

230 ] 



IL1-"TKENA*IL> =CnR«tRIE 

lsel*lm:gotoz30 

240 Z-INTIRNDI3XMCT-l-Il.II 

ZSO IFA*CZMODCTI--'THENA*IZM0DCT 

1=CHR*(RIELSEZ"Z>1 :G0T0Z5Q 



120 I 



!y = itoC:prii 
ie»="0O:0o:< 



CHP»(Z53) i :me 

•:n-o:u-0 



430 IFU=CATHEN500 

ate locate xi , rt:PRiNTO*t ilocate 
X2,V2:printb«; :a-scpeenix2,yzi 

470 tFOO«"S0«THEN4OO 
1BQ NEXTNB 

500 'FIN 

310 cls:s-o:print-bravo- • • -gagne 

520 IFNJX*1THENPRINTM*< I I r ■ : " , II i 

•coups en-:locate 7,3:printtime* 

|!60T09BO 

530 F0RX-1T0NJX 

535 PRINTNSIXI I "!*>' /'iNJIX 

340 I FN J (XI 1ST MENS -NT (X) :S««N*IX 
350 [FINKEY*-"THEN330 

370 C1-S:PRINT-L»(»1 Vlingumrlll 



< iStTHENPRI 



380 *CHOIX 

390 X-E-!:Y-0:A-32 

395 fornb-1t0njmlocate e- 
■joo o*-chr*(Z3Si:n=n.i:loc. 



,S:PRINT-Un* aotre-:LOCATE 
IPUT-parti*IO'NI -iBt 
R«- -0 - THEN 1 OELSECLS : CONSOL 



BRAIN 























BEWtmMIHH 






143B RETURN 






R l_A CA 


TE ROUSE B 


_1440 FOR 1-0 


TO 6 



CJtt* * 4 



N201O 

SOTO XO-X: rO. . 

2040 IFS*.CHR*I28ITHENX-X' 



-Cff 



203O I 



■=« = c«i 



■ i29i thEmx-j 



ETHENX-E 

2060 IFS*-CHR*«30ITHEm«T -KIFY4 

2070 IFS*-CHR*131 1 THENY-V- lilFY! 

3THENf-3 

20B0 LOCATE XO, (0:pRInTCm«*iAi I 

20»0 A-SCPEEni*,vi :lOCaTE '.•••.ft 

lnT--»--,:GOT02010 

2IO0 IFA- :235THEN20IO 

21IO T- <»C'X-E:LOCATE x,r:PRINT( 

»iT>i:A.sCPEENix.i>:PETuRN 

3000 FOPI-lT025;B££PI. I :«£-■ T 

3O10 U-U'KO*-- -INJiNB'-NJINBl' 

l;RETUPN 

4000 PPINT'NcwOr » <1»":L0CATE 6,1 

:IHPUT*j(iuaurati-vi -in.i\: ifnjx<i 



JOJO CLS; INPUT -O-jvl niwi, 
;2x: IF2*< iopzx . 6THEN4O40 
4030 CLS:PI>IMT-Hiw#«« «*•' 
ET. 1: INPUT- rH I- »M I b> -; 

4060 ifduvmorou* ohimw 




Deux cartes sont choisies par le joueur. Oric les presente 
a I'ecran. 

Le but du jeu est de disposer (espionsde la carte a gauche 
de I'ecran (carte joueur) dans le meme ordre que ceux de 
la carte situee a droite {carte modele). 

Stephane CALLEGANI 

Presentation : 

II y a 25 pions disposes initialement en5pilesde5pionschacune. Les 
piles sont appelees A, B. C, D. et E. A tout moment du jeu, une pile peut 
contenir entre et 7 pions, ni plus ni moins. 
Mouvement : 

II existe 2 types de mouvements : On peut deplacer un pion en haut 
d'une pile pour le placer sur une autre pile. Pour effectuer ce mouve- 
ment il suffitde taper le nom de la pile de depart suividu nom de la pile 
d'arrivee. La validation de la commande se fail en appuyant sur la tou- 
che RETURN. On peut deplacer 2 pions simultanements'ils sont dem.6- 
me couleur et s'ils viennent se deplacer au-dessus d'un pion qui est 
aussi de la meme couleur qu'eux. Pour cela il faut taper un 2 suivi du 
nom de la pile de depart etdu nom de la pire d'arrivee. La validation sef- 
fectue en appuyant sur la touche RETURN. 

Fl N DU JEU :Le jeu s'arrgtelorsque tousles pions de la carte de gauche 
ont et6 disposes dans le meme ordre que ceux de la carte d'arrivee 
situee a droite de I'ecran. 
Autrescommandes: 
S (suivi de RETURN) stopper le jeu 
J (suivi de RETURN) affiche la regie du jeu 
R permet de revenir d'un mouvement en arriere 
DEL (la touche DEL) efface le dernier caractere de !a commande s'il 
existe. 

Exemple : choisissez la carte de depat BA et la carte d'arrivee VB. 
Liste des commandes : 

(1) AD. (7) CA. (13)2ED 

(2) 2AE. (8) 

(3) BC, (9) 
(4J2BA. (10}2DC, 

(5) DA, (11) EC, 

(6) CB, (12)2EC 
TOTAL 17 mouvements, record egale. 




I GOE.UB 2700 'INITIALISATION 

I GOBUB 2000 'REQLE DU JEU 

1 tjWMll 2|fJO 'AFf-ICHAOE DU CHOI* 

i on ia«| g05ub 1000,1100,1200,1300, 
1400, 1300,1a 



1700 



i ID'] OOSUB 100O, 1100, ] 



' ''''■■■hi IZOO ■ am [CKAOI I. .i 

. .... .,, .■... ||, MIU1 , 

' OOtUB 2«00 -ESI-t 



-"" " ' " <*■•■'•■•, II- -••,•!. HNV-J 

-I'" 1 " "< " '-"ii" I •■■ i '■ LA I MTI I 



IHCN 1040 



_1030 FOR 1-0 TO . 



.1 '.' IB ni riJDK 



_1116 :rb*i-: 



me 


:RBS<3, 


1120 


:rb*(3, 






1124 




112A 




iize 


IF ID-1 






1132 


FOR J-0 



446 










RE H»*(HI« HW* •* • t IHMf »«*•»** 






300 


REM POUR CREEP LA CftRTE BLEUE B 


_202B PRINT 


■Un pion an 




Dill BB»I7,3! 






302 


:bb«(z,0)-'V:Bb«i2. ii--b- 


_2030 PRINT 


*p«ut *lr* D 




: BB«I2, 21 "'O'lBB* I2.3J --B- 






306 


:BB»i2,4i-*]*:BB«[3,0)»"V- 


_2032 PRINT 


•«* CD. Ex: 




: !■!■:*'-, , 1)- > B*:BB«(3,2I>-B" 


TURN' 




310 


:B»*i3,3i--B-:flB»(3,41--3' 


_2034 PRINT 


•SI 0»u« tou 




:bb«(4,o»--v:bb«(4,ij--r- 






314 




_2036 PRINT 




516 


: SB* 14 , 41 •■ j* : bb»(3, oi - "V 






318 


:BB«I5, l)--0-:BB*<3,2|i>-n- 


_203B PRINT 


■*tr* d.pi.t 










322 


:bb*(6,oi--v:bb»i6 1 h--o' 


2O40 PRINT 


•rnant plac>* 










326 


:bb*<«,4i-'j- 


_2042 PRINT 


"cmilaur. En 




IF ID-3 THEN 1540 


RETURN'IPRl 


IT 






_2030 PRINT 


■R t*lt r*v 



1200 


REM POUR CREE 


R LA CARTE 


VERTE 




DIM VA*I7,31 








:VA«I2,0I--R' 




■J- 




:VA»t2,2i--B* 








:VA»i2,4i--0' 


VA«(3,0>- 




1206 


:VA*13, U--B- 






1210 


:va*(3,31--o* 






1212 


:va»i4,oi--b- 






1214 


:VAm(4,2)--0' 






1216 




VA»(3,0l- 




1218 


:VA«(3, 1I--0- 






1220 


:VA»(3,3)--J- 






1222 








1224 








1226 








1228 


IF ID-2 THEN 






1230 


FOR I-O TO 6 






1232 


FOR J-0 TO 4 







_1248 RETURN 
_1230 REM»»»«*»»» 



REN POUR CREER LA CARTE I 
DIN VBK7.3I 

:VB*i2,01--0-:VB»(2,ll-'f 
: VB* 1 2 , 2 1 - ■ J - : VB» 1 2 , 3 J - • 1 



_I34B Hi: TURN 



i al« Pi.MI* listen (_A CARTE BLEUE . 

DIM I'A* [,',-,i 

1 :»A»l?,0l-'O'Tl»A»l2, 1I--R- 

i :BA6(?,2i-'J-:ba*I2,3I-"B' 

, :BA*i7,4)-'V':BA*i3,oi-'W' 

i .'BA*I3, 11-'0*:BA*I3,2)-'R- 

I :nA*<3,3l-'J*:BA*<3,4C'B' 

:ba«(4,oi-'v:ba6(4, i i--o- 

:iia« ( 4, l)>-H*tlA*(4 t 3»**J a 

. :ra*i4,4i--B':ba*(3,0i-'O' 

i :ba«o, i i--h':ba»(3, /i--i' 

i MiA«n, .ii--B':ba«(3,4i-'u- 

: »A»(rt,(n--o - :■«•(*, i )-■«• 

T «A» 1 A , 7 I - - J • ; BA* I 6 , 3 1 - • ■• 
II ID-1 rMtfl 1440 



,1340 FOR I-O TO 6 
,1342 FOR J-0 TO 4 
,1344 TD*II. JJ-BB*(I, JJ 

.1348 RETURN 

.1350 i-( :'.■ i i ............ i ■ 

.1600 REM POUR CREER LA CARTE ORANGE I 

.1601 DIM OA*l7,3l 

.1602 :OA«(2,o>--0':OA*!2, I j-*0" 



,1622 :0A*I6,OI •■B" :0A*I6, K--B* 



:GET 



*:ci.i 



I SUR UNE TOUCHE ' 



„2060 REMIIIIIIIII ■mi I •• 

_2iot> rem affickaoe choix des cartes 

_2i02 rem lecture des cartes choisies 

_?104 dim tc*i6] :pap£r3: ink4 

_2106 tc*ioi-'ra*;tc*i ii-'rb':tc*i2i-- 

va-:tc«(3i--vb' 



(I): 



, J1-0A*II, Jl 



_2124 input 'carte de depart ■ | c d* 

_21z6 cd*-left*<cd*,2l :x*-cd*:00sub2i4 

o: ifid--1 tmen2124 

_z130 input 'carte d'arrivee ■ 1 ca* 

_2132 ca*-left*ica*,21 : 1fcd*-ca*txen2i 

30ELSEx*-ca*:gosuB214o: ifia>-i 

TMEN2130 

Ni -| :oetrep*:printrep*i 

_2136 IFREP*-"0'OHRCP*-CHH*I 131 THENREI 

uRnelsecls: print: print: go tozi I 



I-O 





FDR I-O TO 6 




_2I44 FOR 1-0 TO 7 


_1642 


FOR J-0 TO 4 




_2146 IF y*OTC*(ll THEN 2130 




TD*II, JJ-OA*U,JI 




_2I4B vrai-true:k-i 




NEXT J, I 




_2130 NEXT I 


-|*^ 


RETURN 




_2132 IF VRAI THEN 7158 

_2134 IF X*-CA* I1IEN IA--I FLSE 1 D- - I 

_213A RETURN 


Tl700 


REM POUR CREER LA CARTE OHANOE B 




DIM 0B*(7,3I 




_2I36 IF X*-CA* THEN IA-K 




:0B*12,0)--0':OB*<2, Ii-'V 




_213V IF X*-CD* THEN ID-h 




:0B*I2,2I-'B-:0B*I2,3I-"J- 








:08*i2,4i--R' :0B*(3,OI-'R' 
: out i i, 1 I --O" :0B*(3, 2I--V 






Il70B 


_2200 REM POUR FAIRE L'AFFICHAOE JEU 








_2202 LORES 




:OB*I4,OI-'J' :0D*I4, i I--R- 








: OB* 1 4 , 2 1 - ■ o ' : OB* 1 4 , 3 1 - • V ■ 




STR*ITRIID»0'IA1 i 




:0B*(4,4i-'B':0B*(3,0l-'B' 




_720A PLOT 3, 7, X* 


_i?ie 


:0B«I3, li--J':0B*!3,21-'R- 




_720B PLOT 21,3,'IOTAL '.CTR*CNM1 


_1720 


: OB* 13,3) -"O-:0B* 13.4 1 --v* 




_7710 PLOT 2,3,CD*>' Curt* Jou.ui' "'C 


_I722 


:OB*I6,OI--V:OB*I6,1I-"B* 






_l?24 


:0B*i6,2i-'J':0B*i6,3i--R- 




_»2I2 FOR 1*1 T07 




:0B* 16,41 --D- 




_2214 Pi.iil 1,7*1 ,'.iw*ill-l> 


_172B 


IF ID-7 THEN 1740 




_22lA PLOT l»,7iI,*TR*m-ll 


_1730 


FOR 1-0 TO 6 




.2718 NJtXI I 








.7720 PLOT 6, 17, *A ■ c 11 1 • 


_1734 


TA*I I , JI-Q8»M, Jl 




_7723 nnl -M, I •, *A |> c n i - 




NE X I J , I 




_3J74 F<IH )-!•> Ill ,'\ '.III' / 


_I738 


RFTURN 




_7?76 FOR 1-0 TO 38 


_I740 


FOR 1-0 TO 6 




_.-.'. i<ii i , i, • ■ 


_1742 


FOR J-0 TO 4 




_.'.' Ml NI ■ 1 I, t 


-l.'l« 


ID*1I.JI-0B*'I, 11 




m m* •■ ,20.*MRNIIn hmiiviment- 




NLXT J. 1 




_?J in. Tl ■>! O..V. -M.IHMANDI: - 


_1740 


'■ ■" 




_.'.' Ml 1 M 1 -I' III « 

_2740 FOR J-O III 4 
_774* x*--a- iSOtUMSM 


_?000 


NEH REOLfi DU JEU 




_S00J 


CLtiRAPCRii ink^:printgpc< 111 'Bra 


.1141 Min ,■'...■■ 1. II. 1 ,«■ 


IN tr* 


IMtK ■ i 




. ■■!, ■ .... |U| .■,■... 


_7010 


l'»IN|-Unu« «■«•! ehoi *ll -' 




.1391 ii iii ,••■.'• J, «H ,M 


gorat 






_.■,■-,< HI ■ 1 t, I 


_»017 




• tt C 


..-,•■■>. bim • tim 


D' 






,m« him >. mini iini m coot cow. tun 


_7014 




VM C 


_/.v.u li ■■-•ii- mi N.fism i, J u i i . • "• 










.201* 








4. 3 


"""' 




■'■nilr ;i,MJi' (i 



NIBBLER 



Passezmaitre dans Tart demanipulerNIBBLER, la chenille 
vorace qui doit manger tous les oeufs du labyrinthe sans 
se mordre la queue et sans depasser le temps limite. 

C. ARCHAMBAULT 



Chaque osuf mange rapporte 100 points, et le temps restant a la fin de 
chaque tableau se transforme en bonus, qui s'ajoute au score. Evitez 
de reflechir coince dans un coin, car le temps diminue de plus en plus 
vite. Si vous restez trop longtemps coince, le programme vous lancera 
tout seul dans une direction au hasard. Ce programme exploite bienles 
possibilites du Commodore 64. en particulier des bruitages, cies musi- 
ques et de la couleur. Au debut du jeu, choisissez les touches qui vous 
conviennent !e mieux pour dinger la chenille (1 ou 2). Les 6 tableaux 
sont symetriques, done on peut les taper en se servant deux fois de la 
meme ligne. A partir du stage 7. vous serez oblige de chercher des par- 
cours plus rapidescarles tableaux reprendront au debut mais le temps 
diminuera. 





IB REM *B* INITIALISATION BBaaaaaaBttBit 
11 REM 

*= ■-:->:------:-;.>;.;.;.:.;,;.;, ; . ; .- W " PQKE54276,0 

IS PRIHT-3" TA=! i3OSUB6808fl . SO. II FT* E53281 . 1 1 : 3=0 

28 RESTORE BCl>=-48 TS(2>--1 P' 3) = 1 D<4;>=40 HIKQ>=25 LN(8>=I77- 

HHQ)*21 LHC1^154 

33 IFTPD6 THEM Tfl=i:RQ=RO+l 

40 GOSUB 55980 

41 PRIHT'W 
4'; on TftC.OiUflyyy.iviyy. :-800. 4000- 508*. 6800 

50 pRiHT"«ri«ER 9n&m»m w wnnmmscoftE" 

52 FORH0=lI94TO1884STEP4e:FBWH=HQTOHO+I9 
54 IFPEEK(HH>=8? rHENP0KE55296+HH-1824,l 

56 UEXTHH.HG 

68 NM=e:TE»<588-188»R0)»Tfl HT=18*Tfl P0KE19? 

97 REM 

98 REM *** EOUCLE PRINCIPALS ********* 

99 REM 

100 0-PEEK<i97> = IF0=64 THEN288 

119 AD=I'<F> 

120 F0RI=1T04 
138 IFT<I.'=OTHENI50 
140 HEXT:00T0288 
130 IFD<lX3<-AIlANIiPEEK<T* 0< I • ><>35THEIIF=I 
200 B=PEEK<T+D<F>> 

210 TE=TE~ET ET=ET+1 IFTE :=OTHEN9O0 

220 PPiHT-a'MEFTJ'.-m MWM W, 12-LJENCSTR*CTEW;TE 

225 P0KE54276,16 C£>IHT<RHI)<i>»2>;P0XE54273,HN<CC>i 

P0KE54272,LM(CO-P0KE54276il7 

230 IP ET>=20 THEN GOSUB500 

240 IFA=35 THEII 106 

260 T=T+Ii<F> 

270 POKET.S1 POKET+54272. IHTfPNIiM .■■t4+l>*2-l:ET«l 

275 IF A=37THEN608 

276 IFA=31 THEM 710 
280 F0RI=1T04 

290 IF PEEK<Q+IKI)>081TH£HHE;-:t 

388 Q=Q+D(I>-P0KE 0-32 POKEQ+54272,8 

318 IF DR=0THEN1OO 

320 IF TjR=iTHEN RETURN 

500 F0RI=1TO4 

510 (?W=PEEK(T+D<1>>:IFQW=960ROM=32THEHF=1 :RETURM 

520 NEXT I : RETURN 

597 REM 

595 REM *** LA CHENILLE MANGE UH OEUF 

599 REM 

600 S=S*100 P0KE54296-15 

610 PPIHT"l»IMmiMIMMMM»»IW««W",S 

628 NM«NM*J : IFNn=NTTHEN306 

630 P0rE54277,96 P0):E54273 , 64 ■ P0!"E54272. 120 ■ P0KE542 76, 129 

635 FORI-27T04SSTEP2 : POKE54273.J NEXT I 

640 P0KE54276, 1 20 : P0KE54296, 8 ■ P0KE54277. 9 ■ P0KE54273 . 25 F Or E54272. 1 77 

645 GOTO 100 

710 DR=0 PRINT"*I?MPMW( | M<i™fllMH";TAB<27;-"GA'1£ 0VEP" 

715 P0KE542^6. 15 P0KE54235.246:pOKE54277,9 ■P0kE54278.fi RESTORE ■ P0KE5427S.* 

717 FORI = IT054PEABTJl NEXT 

720 FORI = lT09-REFirjri,Ii2-D3 P0KE54273-D1 P0KE542?2,B2 

725 P0KE54276-33 : FOR J;=1T01 .5»D3 NEXT.U P0KE54276 .32 : NEXT I 

727 P0KE54277,8 POKE54278-240 POKE 54296,3 

739 REM 

731 REM TABLE DES SCORES *tt*ft******** 

732 REM 

740 IFSOK9) THEN GOTO 13 

745 FORI*OTOISTEP-t'IFS>=N<I> THEH Z=I 

758 HE^TI F0PI=9T0 Z STEP-1 >N< 1*1 >=IKI> NJU + 1 >«N»(I) NEXT 

7Z C - FQRI=JT015 6ET2ZJ;KEXT N(Z>=3 m<Z>="*. . . " 

760 PRIHT-m RANKING TABLET' PRINT 

765 FORI»JT09:pRINTTfiB<19);i;"." RRINT":TT' 

770 IF I=Z THEN PRIHT"in" 

775 PPINTTflBriSmiri/'PRINT'-n" PP I NTTAB<23> ;N»<I ) PRINT"* 1 NEXT 

788 DE«="*»W»M»»»M*i»»»»»l"*LEFT*<'ST*-Z*2J PRIHTBE*; 

733 AJ="" FOR I*lTC'3 : PRIHT"ir, 

790 GET Zl IFZS=""THEN790 „. „„, ,_ 

?9i PRIHTZ*. ft*«R*+Z* NEOTTH*<z>=fi* TOP I-tTO 2888 HEXTf-GOTO 15 

797 REM 

798 REM *** FIN DU TABLEAU *********** 

30*1 TA=TA+rP0KE54296,15P0kE54273>162 P0KE54272, 194 

310 FORI=TETO0STEP-I0 

820 PPIHT"*', LEFT*- ((Mill 

848 3^I£p0k5*27^^ P0I--E54276, 16 

845 P0fE54296.R:PWE54277,9 P0KE54273-25 R0KE54272. 177 
858 NM=0 GOTO 35 



908 F-P!NT"J*j 
918 5GT0718 
997 REN 

993 rem **» tableau:-: 

999 REM 

1000 pp hit '-nan it *»!(«*: 

1018 PRINT"* 

1028 PRINT"* ****BB ■ 



TAB' 21 '"NIBBLES RAH" PRINTTAB* 2 



UtitBSiKlNlilKONMBtl 




10: 

104O 

105O 

L868 

1878 

10i;0 

10^0 

1 1 38 

1140 

1150 
I 168 



1 229 

1230 

1240 

:_-■.■ 


1827 

2020 
2030 



2070 
20SO 

;o^o 

2188 

2110 

2120 
2130 

2140 

2130 
2158 
2170 



anstSHn i 



• • 



;.= ■■ 



,12-LEN<STR*<m>Jl 



3010 
3020 
3030 
3040 
3050 
30-30 
3078 
3030 

;0r0 

3 1 00 
3110 
3120 
3130 
3148 
3150 
3168 
3170 
3150 
3190 
3200 
3240 
3250 
4000 
4005 
4010 
4020 



4120 
4130 
4140 



4190 
4240 
4250 



5040 
5050 

50-?0 
5870 
5030 
5090 
5100 
5110 
5120 

/ i 4t 
5150 
5160 
5170 
5130 
5190 



PRINT-'tt tt 

PRINT"" a tt «tt tt aa * a #■■ 

PRINT"* * * 0*0 I • •" 

PRINT"* * tt ** » aa a a a- 

PRINT"! a a tt u tt" 

PRINT"* * *ft* »aa * a- 

PRINT*! a a an at a a *" 

PRINT"f(MI a ttOiOtl tt SOB" 

PRINT"* * * tt* ** H * •■• 

PRINT' 1 * » *#«***« H *•' 

RRHiT'-a « a # it tt" 

PRINT"* * a »tt a ** * a *" 

PRINT"* * * 0*0 * * *•' 

PRINT"* It I in «« t S a" 

PRINT"* It * *" 

PRINT"* (t»*atni a aeaaiu tt 

PRINT"* •• »" 

PRINT" ft*** *«*«*»***■ n't* SS' 

0=1335 T»1837. F=3 

RETURN 

PR HIT "JS a* tt tut its tt* ««*****« If 

PRINT"*) OB" 

PRINT"* *«* BMaottaa HHH tt" 

PRINT"* to a * os *" 

PRINT"* MB* tt*tt * B ft tt" 

PRINT"* W W B" 

PRINT"* »*b ttectio** aa* *" 

PRINT"* a a a a it" 

FRINT"* *o* tt *tt» * *os *" 

PRINT"* *f* ft 8 tt »•' 

PPlNT"tt a »c-» tt* ttaao* * a- 

PRINT"* * a tt a B B H" 

print* 1 * aoa a aa* a ttott *" 

PRINT"* 8 8 ft tt tt" 

print"* aaa aaosoaa aa* a" 

PRINT"* * It ft" 

PRINT"* * a » aaa a it a a* 1 
PRINT"* BO tt #0* •" 

PRINT"! aaa tttttto*** aaa a" 
PRINT"! 

PRINT"«»*a*a«Bft«*Btl 
0=1335 T=1337 ,F=3 
RETURN 

PPINT-ll*******************" 
PRINT"* O *" 

PRINT"* BBBOBOttOBOtt^aa* 8" 
PRINT"* *" 

PRINT"* 8 8*8 * tt 8*8 * 8" 
PRINT-BO* *0» *0*" 
PRINT"* M BBtt 8 tt 8*8 8 U" 
PRINT 11 * C *" 

PRINT"* flB*B*ittt*Btltttl«tltt 8" 
PRINT"* O *" 

PRINT"********* tttttttttttt***" 
PRINT"* *" 

PRINT"* «BB»ttftBatttt**tttt* tt" 
PRINT"* *" 

PRINT"* tt ftttfl tt H 811* ft *" 
PRINT"*o» o bob o aoa- 
PRINT"* 8 BBtt It * **» tt *" 
PRINT"* tt" 

PRINT"* tl**0*OMO*0*0»ft» *" 
PRINT"* •• *" 

PRINT"*******************" 
0=1835 T=1337 F=3 
RETURN 

PRINT•';«t**««ttB**ttaB*fttt*efttl■ , 
PRINT"*0 0*'* 

PRINT"* *««Btttt* ttBBBHB* tt" 
PRINT"* BO Of •" 

PRINT"* B *»*tt»0**BB* » M" 
PRINT"tt ft *0 0* ft B" 

PRINT"*OB B *ft**8** * *0«" 
PRINT 1 ** *" 

PRINT"* ** ft **» »*«»« ft*** *" 
PRINT"*0 OB- 
PRINT"** ««!!«** B***»* **" 
PRINT"*0 oooo or - 
PRINT"* BBBB»*MB«H**ttB* 8" 
PRINT"* •" 

PRINT"»0B * ft****** » »0*" 
PRINT"* tt SO Oft » *" 

PPINT"* tt HBBBBOMft*** « *" 
PRINT"* *0 0* *" 

PRINT"* H*tt*K*ft ******* H" 
PRIHT"«0 •• 0*" 

PRI!IT"«ft««»*8ftBBBfttlB**tl*»■ 1 
fl=1835 T=1837 F=3 
RETURN 

PRINT"»B«*«*Mtt*BlttlBBBIIBatf 
PRINT "HO Oi B 
PRINT-B BttHB MB* Btttttt 8" 
PRINT"* »0 ( 
PRINT"*0» "ft 
PRINT"* O 
PRINT"Bo* "» I 
PRINT"*, tto M B 
PRINT"* *ft* HBOttOtt* 
PRINT"* 

PRINT"*O***0*««*tttt*0***O«" 
PRINT"* *" 

PRINT 1 '* Bfltt «*0*0*ft »** *" 
PRINT-'* BO « * 0* *" 
RRINT"NOB ft* *B*»B tiB MOB- 
PRINT"* »" 
PPINT"*0« »***»•* "Oft" 
PRINT"* BO ft * Oft #" 
PRINT"* BB«« tt 8 tt BttHB ft" 
PRINT - *) O MO 0*" 
PRINT"********"**"*******" 
0=1335 T=l?37 F=3 
RETURN 



8* 80K " 

*'* 

I tto*" 

0* *" 

HI* *" 



conM 



oooke 



64 




^- 



6000 PRINT"«-/.aa8*BBB8SB8ttBBaHBB-- 

6818 PRIHT'lO Q 0*" 

6620 PRINT"* HB8BBHB NBBaaaa a" 
EWtONC OtOt" 
6040 RRIIIT"B H BBB 8B8 8eu 8 *" 
£858 print"* * * o o o * » ft" 
6068 PRINT'I *os BBSttsa* tot »• 
6070 PRINT"" B... o 0* *" 
6388 PRINT"*OB * 11 Bftft H U BOB" 
6090 PRINT"* a « to CM * * *" 
6188 print"*o*o*ou aaa Boaotto*" 

6110 PRINT"* 8 tt 80 0* a a 8" 

6120 FRINT-ttOB a 8 888 8 8 B08" 

6130 PFINT-ft *0 0* *" 

5140 PRINT'*!! 808 aatt8»Btt a^.H It" 

6150 PRINT"* 8 8 tt * It" 

-y,-:x: PRINT"! a bbb *aa aa* a a- 

6170 PRINT"ftOBO 0*0*" 

SI88 PRINT"! aaasBBB aaaBBB* B" 

6150 PRINT-BO fO 0*" 

6280 RRINT"88ttB8B8BB#a*S8t1Baita" 

6205 PEtr-;.:-:-:-" 

6240 0-1835 T=l*37 P=3 

6250 RETURN 

54097 REM 

54898 REM 88* DBT PROCHftIN TABLEAU «B8 

54099 REM 

5TO03- " r - "::■ TJtMitPMMKW^TOteMHiMMtiTAGE" TH + FO+6 

'■■:■?■ I; :53'4 ro ;54i: F y, e 1+54272- INT fnd- l>#2>*3+1 .. E I-l> 

■.-■ ' = 1 To .jo i:e.:t.i RO! '.'■.■■ -. . : -n- ■ !■•: >C 32 then P0KE54276. 129 

5581 NE^TI 

0!E5427:M P0IE54276 32 POt E54276 . 33 ne::T I 
JKE5427 '■ ■ ■ 

■OM tt«BBft8BI!B8N 

■::■■-. : ■ - ■ 

■ ■ : ; P0--E5 :231 ■ 11 
68818 •' r.-"t r,, .T'':'>:*;': (P 

pRiNT-a rr r i i 

60030 PRIHT'k l I I t ) I I I t II" 

68646 PRINT- 1 t 1 I I I I I I I IX" 

60050 print"Si i I I r\r,i r— r .- 

-"0060 PPINT"0 I I ) I I I ! 1 I II" 

60070 PRINT"a I 1 I I II N I ' I" 

68630 PRINT"^ l I J- I ■' I — I I ' r 

Ki-nri^s ppii:r-';-;f;';-:-:r»t»tt»n»F:'-' ;■ :■: 3V'.-KiEL" 

.f.: -, poi ! 542 ■■:. ■ ':-i...-. ■'-'."■■: 

...,.- ott-:. Ti jpe F0PI = ;T013 PE-U'IU -D2.H3 P Oh E 542 7 3 M F0> E54272 . T^ 
600-^:-: Rut F* r .427---I7 F0RJT=1 TOP?* 1 . 3 HE::!,'* FO' E54276. 16 NEXT1 
68039 FT:: •;- :.:.- ■.;■. P0i'E54236 3 

68188 REM 

Hft OPTION CLfiVIER 8MMtttt"MHiiB 



■_■ 



010 



',-■•:■: 



RiNT"r*»»»»»»*ftP»»»ii' i ; , :-i»:'>JF'i ion clavier" 

60110 RRJHT"tM»»M§M»»l- " 

60126 PR HIT PRINT "1 - --F5(HfiUT>,fl(GflUCHE>,D<DR0ITE '.F7<Bfl 
60130 PPINT PRINT "2 '.'■ HAUT'- , G'-GAUCHE.- .N'PROI TE> -I 

60150 PRINT PPIUT"VOTPE CH01X ???" 

60151 PRINT" nlflUMWJFPOGRAHME DE ar..ARrHfitiBAiAT5" PRINT 

60152 FRUIT-VERSION FINALE ftVEC L AIDE PE P.MEPGKLE" 

6n 160 GETAt <V.=VAL-.AI ■ IFAr= jPOC: vOPO*: . i THEH6O160 

60170 IF0f>lTHENT<l)"6 r<2>»18 T<3>-18 T<4>*3 
60130 lF0C=2THENT.:i ,-=25 T-:2:'=26 T- 3 ■ ■ . ■ 

60200 RETURN 

613-35 REM 

61S96 REM HMft DftTflS MUSIOflUX ! tt******* 

6i^v PAT A 76.252-50 

62005 PATA 86.105,50 

62010 PATH 63.149.50 

62015 DATA 57.172, 188 

62020 DATA 64. 138,50 

62025 DATA 51. 197. 208 

62030 DATA 33. 126.50 

62835 DATA ■* 1,52 .58 

-2040 DATA 34.75 -50 

62045 DATA 23-214. 100 

62050 DATA 32.94 .58 

62055 DATA 25. 177-200 

62068 PATA 19.63 .50 

62865 DATA 21.154-50 

62070 PATA 17. 37 .50 

62075 PATA 14,167, 160 

62030 DATA 16.47 .50 

62035 DATA 25. 177.580 

62036 REM 

62037 REN »»* DATA3 MUSICAL':' II ttBB*** 
62033 REN 
62090 DATA 4 3-52 ■ 50 

: ATA 40.280.50 

621O0 TATA 43.52 

621 18 DATA 38. 126.50 

62! 15 DATA , 1 ■ 75 .38 

DfiTA :2 ■:.'■■ >90 

62125 PATA _::■■;; !.'■:■ 

DATA 27 - 

: '. -niH i,214 




HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM- . MATERIEL UTILISE : 

PRENOM : CONSOLE : 

ADRESSE: PERIPHERIQUES : 

REGLEMENT JOINT : □ CHEQUE OCCP 



AGENDA INFORMATIQUE 



Ce programme est un agenda informatique. II vous 

permettra de stocker treize rendez-vous par jour, 

de 8 heures a 20 heures, heure par heure. 

La limitation des noms en longueur est de 24 ca- 

racteres, ceci afin de permettre le stockage d'une 

annee de rendez-vous sur une seule face de dis- 

quette. 

La totalite des rendez-vous de la journee sera affi- 

chee a I'ecran, de mdme la date sera affichee clai- 

rement{ex. :LUNDI31 DECEWBRE 1984), ainsi que 

I'ordre du jour dans I'annee (ex. : JOUR 366). 

Frederic WARIN 



Mode d'emploi 

- Premiere utilisation 

Lorsque vous avez rentre les deux programmes et que vous les 
avez sauvegarde sur disque. tapez "RUN INIT AGENDA" (ce 
programme pourra ensuite etre efface car II creeun fichier ne- 
cessaire au programme principal avant d'appeler ce dernier). 
Apres la presentation, lorsquelemenu seraaffiche. il vous fau- 
dra alors imperativement initialiser une annee. 

- Utilisations ulteneures 

Tapez "RUN AGENDA INFORMATIQUE" 

Apres la presentation, vous avez acces au premier menu. Trois 
choix s'otfrent alors a vous : 

: dupliquer le programme principal et par la meme occasion le 
fichier necessaire a son fonctionnement (d'ou I'inutilite du 
programme init agenda apres la premiere utilisation) ; lequel 
fichier s'appelle "annee". 

: creerle fichier d'une annee. En effet, chaque faceded/squet- 
tecontiendra les rendez-vous d'une annee, maiscela necessi- 
te une initialisation prealable de chaque face de disquette. Le 
programme vous demande alors quelle annee vous desirez ini- 
tialiser, puis ii vous reclame une disquette vierge mais sous 
D.O.S. II travaille alors quelques minutes, t ermine par 3 bips, et 
vous redonne le menu. Vous pouvez alors utiliser le fichier que 
vous venez de creer. 

; consulter les rendez-vous apres avoir insere votre disquette 
fichier. Le programme vous demande alors la date a consulter, 
affiche les rendez-vous de la journee ; puis propose un second 
menu : 

; consulter une autre date (touche A) 
; modifier ou inscrire un rendez-vous (touche F) 
; quitter le programme (touche Q) 

; il existe en outre les commandes - et - qui permettent de 
passer au fichier du jour precedent ou suivant sans avoir a re- 
taper la date dans son integratite. II est a noterquele passage 
d'une disquette a une autre est prevu (ex : passage du 31/12/84 
au 1/1/85 ou reciproquement). Le programme verifie alors que 
la disquette que vous avez inseree dans I e lecteur a sa deman- 
de est bien la bonne. 

Si vous avez choisi I'option vous permettant d'inscrire ou de 
modifier un rendez-vous (touche F), vous aurez alors acces a 
un Iroisieme menu vous laissant alors le choix entre : 

- modifier I'heure d'un rendez-vous (touche F) 

- fixer un rendez-vous (ou ef facer en ne donnant aucun nom). 
Lutilisation de ce programme est complexes expliquer, mais il 
s'avere d'une grande simplicity a I 'usage comme vous pourrez 
vous meme vous en rendre compte. 



Din JNU2) 
3130 



SLIST 

10 AH = 1984 
20 PJ » 7 

30 D» = CHR* 14) 

10 POINT D*:-0P£N ANNEE, L16" 

90 PRINT D*;-MRITE ANNEE. RO" 

60 PRINT AN 

70 PRINT PJ 



1 REM "AGENDA I NFORMAT I OUE * I 

2 RO! "PAR FREDERIC MARIN" 

3 REM "APPLE ZE 64K.UH DRIVE' 
10 TEXT : HOME 

20 HTAB 11: VTAB 9 

30 PRINT -AGENDA I NFQRMA T I OUE " 

40 HTAB IB: VTAB 13 

50 PRINT *PAfi- 

60 HTAB 13: VTAB 13 

70 PRINT -FREDERIC HARIN" 

60 FOR CO « 1 TO 3000 

90 NEXT CO 

100 DIPf JSK7J 

110 FOR CO - I TO 7 

120 READ JS»(CO> 



ppueu 



130 



I CO 



140 DATA LUNDI.nARDI.MERCREDI.JEUDI.VENDREDI.SAMEDI.DinANCHE 

ISO D* " CHR* M): HOME 

160 DIM MA»(12) 

170 DIM A*(20) 



200 FOR CO - 1 

210 READ MAt(CO) 

220 READ JMICO) 

230 NEXT CO 

240 DATA JANVIET',31,FT£WIER,28,MARS,31,AVRIL,3O,HAI,3I,JUIN,3O,JUILLET,31,A0UT 

,3I,SEPTT£MBRE,3O,0CT0BRE,31,NOVEMBRE,3O,DECEMBR£,31 

230 GOSUB 2370 

260 HOME i HTAB Ml VTAB il INVERSE 

270 PRINT -AGENDA I NFORMAT IOUE": NORMAL 

200 HTAB 11: VTAB 2 



290 


PRINT "PAR FREDERIC WARIN' 




300 


POKE 34,3 




.110 


GOTO 1440 




320 


POKE 34,3 

HOME i HTAB 1: VTAB 12 




340 


INPUT 'DATE A CONSULTER (JJ/MN) : 
JO - VAL ( LEFT* IDA*, 2)) 


";DA» 


360 


•D - VAL ( RIGHT* (DA*, 2)) 




370 


IF JO < I OR JO > 31 THEN 320 




3B0 


10 ■ INT (MO) 




JVO 


IF MO < 1 OR NO > 12 THEN 320 




400 


IF JO > JM(MO) THEN 320 




410 


GOSUB 2130 




420 


60SUB 2020 




430 


POKE 34,3 




440 


>* = CHR* [41 




430 


PRINT D*;"DPEN M";NO- ".L325- 




440 


PRINT D*i'READ M":HO; ",R': JO 




470 


FOR CO = 8 TO 20 




4B0 


INPUT A*<CO) 




i?0 






BOO 


PRINT D*:-CLOSE M-)MO 




510 


HOME 




520 


NORMAL : HTAB 1: VTAB 4 








-;AN 


540 


HTAB 32: VTAB 4 




550 


PRINT "JOUR -;H0 
HTAB 4: VTAB 6 




570 


PRINT -B HEURES: * 
HTAB 4: VTAB 7 




590 


PRINT '9 HEURES: - 




600 


FOR CO = 10 TO 20 




MO 


HTAB 3: VTAB CO - 2 




620 


PRINT CO:" HEURES: " 





630 



r CD 



640 FOR CO = B TO 20 

650 HTAB 14: VTAB CO - 2 

660 PRINT A*(C01 

670 NEXT CO 

680 HTAB 1: VTAB 20 

690 PRINT -DESIfiEZ-VOUS:' 

700 HTAB 1: VTAB 21 

710 PRINT --CHOISIR UNE AUTRE DATE 7 (A) - 

720 HTAB 1: VTAB 22 

730 PRINT '-FIXER OU CHANGER UN RENDEZ-VOUS '. 

740 HTAB 1: VTAB 23 

750 PRINT '-QUITTER LE PROGRAMME ? (0)" 

760 POKE 34,23 

770 GET B»: PRINT * - 

780 HOME 

790 IF B* < > "A" AND B* < > "F" AND 8* < 




-0" AND ASC 1 



SC <B*> < 

800 poke : 



^ 660 



ASC <B*> < ' 21 THEN 940 
BIO IF JO < > 31 OR MO < > 12 THEN 910 
820 HOME : HTAB 1: VTAB 12 

830 IF AN = 9999 THEN PRINT 'PAS D'AGENDA 10000': GOTO 440 
840 PRINT 'INSERE? LA DI50UETTE DE L'ANNEE -|AN ♦ I 
850 MO = I: JO - 1 

SET 8*: PRINT - ' 



870 t 



• AN < 



880 GOSUB 2130: IF AN < > AN THEN HOME : HTAB 

CORRECTE , RECOMMENCE^-: GET B%; PRINT ' - : GOTO 

B90 GOSUB 2390 

900 GOTO 420 

910 JO = JO *■ I 

920 IF JO > JM(MO) THEN LET JO = l:MO " MO <■ 1 

930 GOTO 370 

940 IF ASC IB*) < > 8 THEN 1090 

950 POKE 34,3 

960 IF JO < > I OR MO < > I THEN 1060 

970 HOME : HTAB 1: VTAB 12 

980 IF AN = 1984 THEN PRINT "PAS D'AGENDA 1983": 

990 PRINT -INSERE? LA DISQUETTE DE L'ANNEE '-AN ■ 

1000 MO = 12:J0 = 31 

1010 GET fit: PRINT ■ " 

1020 AM = AN - 1 

1030 GOSUB 2130: IF AM < > AN THEN HOME : HTAB 

NCORRECTE , RECOMMENCE 1 ■ : GET B«: PRINT - ■; GOTO 

1040 GOSUB 2390 

1050 GOTO 420 

1060 JO = JO - 1 • 

1070 IF JO < 1 THEN LET MO = MO - 1:J0 ■ JMIM01 

1080 GOTO 370 

1090 IF B» * -A* THEN 320 

1100 IF B* = -D- THEN lEXr : HOME : END 

1110 HTAB 1: VTAB 21 

1120 PRINT --MODIFIER L'HEURE D'UN RENOEr-VOUS 1 

1130 HTAB li VTAB 22: CALL - 868 

1140 PRINT --FIXER UN NOUVEAU RENDEZ-VOUS 7 (FJ ■ 

1150 POKE 34,3 

1160 CALL - B68 

1170 GET B»: PRINT ■■ 

1180 IF B* < > -H- AND B» < > "F" THEN 1110 
1190 IF B» = -H" THEN 1260 

1200 VTAB 20: HTAB B: CALL - 958 

INPUT "HEURE DU RENDEZ-VOUS ft INSCRIRE: ";HR 
IF HR > 20 OR HR < 8 THEN 1200 
INPUT "NOM OU RENDEZ-VOUS: ";A*(HR> 



VTAB 12: PRINT ■DISQUETTE IN 



1210 



1230 



1240 IF LEN (AKHRU > 26 THEN LET A*IHR> 

1250 GOTO 1370 

1260 VTAB 20: HTAB I: CALL - 958 

1270 INPUT -ANCIENNE HEURE: *|RH 

12B0 IF AH < 8 OR AH > 20 THEN 1260 



LEFT* (A*(HR>,26) 



1290 IF LEN (A*(AH)) < 2 THEN LET A»(AH) - A4IAH1 . • • 

1300 HTAB 1: VTAB 20i CALL - 868 

1310 PRINT "LE RENDEZ-VOUS "jA*(nH)i PRINT 'ETAIT A • l AHr 

" HEURES" 

1320 HTAB I: VTAB 23 

1330 INPUT 'NOUVELLE HEUREi 'iNH 

1340 IF NM < B OR NH > 20 THEN 1260 

1350 A»INH) " A*(AH) 

1360 A*(AH> - ■ ■ 

1370 PRINT D*j*OPEN M-jMOj *,L325* 

1380 PRINT Ml 'WRITE M"(MO| ".R- ; JO 

1390 FOR CO - 8 TO 20 

1400 PRINT A**CO> 



410 NEX 



CO 



1420 


PRINT D*; "CLOSE M"iMO 


1430 


GOTO 440 


1440 


HOME : HTAB 1: VTAB 13 


1450 


PRINT --UTILISATION DU PROGRAMME <RETURN> 


1460 


HTAB 1: VTAB 14 


1470 


PRINT --INITIALISATION DES FICHIERS <I>" 


1480 


HTAB li VTAB 15 


1490 


PRINT --DUPLICATION DU PROGRAMME <D>" 


1500 


WIB) = ■■ 


1510 


FOR CO = 1 TO 24 


1520 


»»(8) ■ A*IB) t " - 


1530 


NEXT CO 


1340 


FOR CO = 9 TO 20 


1550 


MMCO) = A*(8) 


1 560 


NEXT CO 


1570 


PRINT 


1380 


GET B*: PRINT "■ 


1590 


IF B% < > •!• AND B* < > -0- AND B* < 


CHR* 


(13) THEN 1440 


1600 


HOME 


1610 


IFM = CHR* (13» THEN 320 


1620 


IF 8* - "0- THEN 2200 


1630 


HOME i HTAB 1: VTAB 10 



1640 PRINT -INSEREI UNE DISQUETTE VIERGE , PUIS <HETURN>- 

1650 GET B»: PRINT - ■ 

1660 IF B* < > CHR* 113) THEN 1630 

1670 HOME 

1680 HTAB 10: VTAB 13 

1690 INPUT "ANNEE: "jAN 

1700 AN = ABS ( INT (AND 

1710 IF AN < 1984 OR AN > 9999 THEN 1440 

1720 GOSUB 2390 

1730 PJ = INT (2 + 1.25 I (AN - 1985)1 

1740 IF PJ < 1 THEN LET PJ * PJ * 7i GOTO 1740 

1750 IF PJ > 7 THEN LET PJ ■ PJ - 7i GOTO 1750 

1760 HOME 

1770 HTAB li VTAB 13 

1780 PRINT "CREATION DU FICHIER DE L'ANNEE "jAN 

1790 PRINT D*;-OPEN ANNEE.L16' 

1600 PRINT Mi'WRITE ANNEE. RO" 

1810 PRINT AN 

1B20 PRINT PJ 

1B30 PRINT D»; "CLOSE ANNEE" 

1840 PRINT D*:-LDCK ANNEE' 

1850 FOR CI » I TO 12 

I860 HOME 

1870 V* = -DE " 

1B80 IF CI = 4 OR CI ■ B OR CI = 10 THEN LET V* > -D'" 

1B90 HTAB 1: VTAB 15: CALL - 958 

1900 PRINT -INITIALISATION DU HOIS ": V*;MA*(C1 ) -." "lAN 

1910 PRINT D*:'OPEN M'iCI ; ",L325* 

1920 FOR C2 = 1 TO JM(Cl) 

1930 PRINT D*:"WRITE M";C1 j ",R*lC2 

1740 FOR C3 = B TO 20 

1950 PRINT A*(C3> 

I960 NEXT C3 

1970 NEXT C2 

1980 PRINT Dt; ■CLOSE M";C1 

1990 NEXT CI 

2000 CALL - 1032: CALL - 1052: CALL - 1052 

2010 GOTO 320 «W 

2020 HO = 

2030 IF MO = 1 THEN 2070 

2040 FOR CO » 1 TO MO - I 

2050 HO * HO ♦ JM(CO) 

2060 NEXT CO 

2070 HO = HO * JO 



) VA = PJ - 



1 ♦ ¥ 



' i < : 



(HO / 



2090 V 

2100 IF VA < I THEN LET VA = VA . 7; GOTO 210- 

2110 IF VA > 7 THEN LET VA = VA - 7: GOTO 211' 

2120 RETURN 

2130 PRINT D*;"DPEN ANNEE. L16" 

2140 PRINT D*j"READ ANNEE.RO" 

2150 INPUT AN 

2160 INPUT PJ 

2170 PRINT D*:-CLOSE ANNEE" 

2180 GOSUB 2390 

2190 RETURN 

2200 HOME : HTAB 8: VTAB 12 

2210 PRINT -DUPLICATION DU PROGRAMME" 

2220 HTAB ll VTAB 17 

2230 PRINT -INSEREZ LA DISQUETTE , PUIS iRETUR) 

2240 GET B*: PRINT " - 

2250 POKE 34,14 

2260 HOME 

2270 POKE 34,3 

2280 IF B* < > CHR* (131 THEN 2200 

2290 PRINT D*;"SAVE AGENDA INFORMATIOUE" 

2300 PRINT D*:"LOCK AGENDA INFQRMATIOUE- 

2310 AN ^ 19B4 

2320 PJ = 7 

2330 PRINT D*:"DPEN ANNEE. L16" 

2340 PRINT D*! "WRITE ANNEE.RO' 

2350 PRINT AN 

2360 PRINT PJ 

2370 PRINT D»: -CLOSE ftNNEE- 

2380 GOTO 1440 

2390 IF AN / 4 = INI IAN / 41 IHEN LET JM(2) 

2400 JM(2) = 20 

24 1 RETURN 
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2341 
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J*. 1 










V.S.' 


,-, ■ rj 


1,30, •* 






2314 


;i • ;* 


. [1 /»-'... 
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.2310 P-O:PL0Ti-j,22, - • 

.2319 Z»LEN<CH*n: 1FZ>30R2-OTHEN2400 
.2320 IF Z< )l IHEN2330 

.2322 1FCM*-- J- THEMOOSU820OO:OOSUB2200 
RETURN 
.2324 lFCM»--STHENPLOr22 1 22, -ARRET Ou 



:en 



_232B CM*-1 
_2330 CM«-l 



'-ASC1MI0»(CM*,1 



N33I -'I L'.i Z-LftN 



_2366 


IF L£NICM»I-3ANDBOU-1THEN2360 


_236B 




_2370 


PLOTS 1,3, TOTfll. - »STR*(NM] •• • : 


_240d 


REM L'ERREUR 




v*«"IlvcaRRECTE":G0T02rtlO 


_2106 


r«--EHBEUR PILE -:G0TO241O 


_2407 


Y«-"ERREUR CQULEUR":00t0241O 


_210B 


f»--R IMPOSSIBLE" 




PLOT22,22,r»:PlNG:UAIilO0:PL0T22 


.22," 




_2520 




-2*00 


REM COMPARE TA* E' 10( 


_2A0Z 


FIN-IRUE 




FOR 1-0 to 6 




FOR J-0 10 A 




IF IA*I1, JI-ID»tI,Jl IHEN 2612 


-26 IO 


• [ii-i M -.i INI fURN 


_2612 


NEXT J, 1 


_26I1 
_2700 


RG TURN 


REM INITIrti II »1 run 


_2?04 


DIM IHiOdl , 11'lt.t) , 1 1 M) INM-O 


_2706 


fo«i-oto-i:ti (I i-3:NSKTI 



_2714 




34 






29 






30 


_2 720 




41 


_27?2 


DATA 33.32,31, 17, 0.32.3B 


37 


_2724 


DATA 30,32,37,26,34,0,36 


-14 


_2726 




.14 




DATA 34,32,13, J2.JV.Jrt, J 




.:■■:.■• 


REM* »•••**• I* ••••• 


>• 


_2800 


Rl M "i i [CMA3E MQUVBHINTI 






■i in . .-, n, ■ i IN Dl 1 Af i : 




,,,, : , | ■ 


IPRRI R4I mi Vfi'lin [PNIN1 




_2B03 


PRINT -Ca, l> D-ri.. 1 -ICD* 




""• " 


. • i«m 'iCa*:printiprint 






IF rir-i . i, ■. M,.l,. Hi ii,, n, . |r, 


-'-'1 




- INMI DOT 03 i 1" 




_2P06 


IFNM-TI'I IDKIMAM 1 '■ Ml 


-l.'l 


EGALE 


1 " INMI00T02 'I" 




_2800 


'"l"l '" i ■"■" I'll "Mi,> 1 




_2010 


RINTil i-iim :i-|.|iir , IfT| [ 




EMI in- 


•iPRINt 




-■■ 1 . 


..il i rONN 






II 1 1 Ml IHti I I 1 Mill MI'MIII 




(•(IN* 


(11,211* -|;0OTO2B2O 






ASTRO 



Votre mission est de piloter un cargo transporter 
(I'ASTRO) dans I'espace a travers les etoiles et les 
meteorites, a la recherche de petits cargos egares 
Vous pilotez votre vaisseau a I'aide des touches Z 
(a gauche), C (a droite) ; en cas de danger vous 
pouvez utiliser la touche B (hyperspace) et votre 
vaisseau est projete a un endroit aleatoire. 

Vincent COGET 

Mode d'empioi : 

En haut de recran, le nombre de litres de fuel restant est affi- 
che a cote de la distance parcourue (en annees-lumieres). 
Le decor change suivant la distance parcourue : 



distance en a-l 


decor 


a 500 

500 a 1 000 

1000 a 1200 
1 200 a 1 300 

1300 a 1500 
1500 a 2000 
2000 et apres 


NORMAL (meteorites, etoiles. 
cargos. fuel, etc) 
Cargos et fuel settlement 
NORMAL (mais plus difficile !) 
Bases (amies et ennemies), 
fuel, cargos 

Champs de meteorites (rapide) 
Cargos et fuel seulement 
NORMAL (tres difficile) 



REPRESENTATION 


ce qui se passe si 


DES OBJETS 




si vous les rencontrez 


etoile 




perte d'un vaisseau 


poussiere s 


patiale 


rien 


cargo 




gain de 1 cargo et de 50 points 






gain de 200 litres de fuel 


meteorite 




perte du vaisseau 


pianete 




idem 


base 




si base amie ; gain de points 
proportionel au fuel et 
aux cargos rencontres 


dechet de 


espace 


perte du vaisseau 


votre vaisseau 


impossible 



ATTENTION ; Ce programme occupe presque toute la memoire 
d'un VIC de base (il reste une cinquantaine d'octets). 



9 P0KE36983, 255 

10 LL-^CO=a-F = 108t! P0KE650,i55-B*="«i»if»»»»lair^WiTV- :PP-0 
20 EC-PEEKC648)«256 

38 GOSUB5B00 

48 PDKE368?S.15PuKE36S7r,254 PCik.E36879,S-PRINT":]" 

70 PRINT'TT 

50 ft»EC+110:B=U-D=EC+4S4 

30 DEFFURi;XJ-:INT<RNDCl>*>:; TIt="S08808- CT=^84ee-t-512*<EC,'1024: 

lHUEC/1024m-EC 

lie FORJ=0TO22 PRIItTHEXT 

■120 IFLV>!ii:.:.F.r.-l^v-:::-:jeTHEH15w 



125 P0KED*FNR(22J,42 

126 IFLY>10C0IHErIU2 

130 X-FHRc^) PUKEIHX.-16 PGiElHCT .FHR<6; + 1 

131 >;=FHRt22> POKED**, 46. POKErj+CT-FMRCSJ + l 

132 P0KEFMR<21J+D.42 

133 IFLV;ieU0rHEHFOI.EFNR ( 21; + I 1 ,42:PGKEFIiR^l..*U,42-PQKEFIIRC2lJ*D 81 
135 1FFHR(50) = 10THEHX-FHRC82) P0KE>:*D.S1 F eA 1 f 

140 IFFNR(25i«.iiTHEHhUf.EUtFMP--^.,87 W ' 

145 [FFNR<2W>"lB0THENQQSU86eeW 

158 IFFI«(50)-39THEW , OKE1J+FW<22>,182 

151 IFF<5WTHENP0KE36676,195 

160 IFFNRC5&) = };jTHEHiJuSU69800 

1F0 1FFHR', IW ; =kk1HBlOQlUb7(}M 

1?5 QOPEEKXFI+B) 

138 1FQQ=320RQQ=46THEN265 

258 IFQQ=182THEHFORN=58TU0SrEP-l;PuKE368?6, I28HINEXT POKE3b8?6,8:F»F+208^rjTO2e 

262 iFoS^THlKe^ 1 FORN=0TO50:pOKE36e; ' 5 ' 128+N: ^T.POKE36S75,0:GuTrj265 
Li's r,QTO10000 
265 FQKEh+B,99 

270 IFLY=500THEH2000e 

271 P0KEIi+FNR<22),42 

280 IFLY>1200fiN0LV<:i308THEMGOiU&S000'3 

281 1FLV=I580THEN20080 

282 IFLV=1380THEN30000 
296 C8=B;uQSU858809:pQKEFi>CB,32 

300 pRna"<mMKmcmiiMMWWiiixiv- 

301 IFF>0THEHPOKE36876.0 

312 LY=LY+1 

313 F=F-1 

320 PRlNT"a*iJEL"F , 'fi-L: ,, LY 
350 MTO120 

5000 PRIMT"^WOqi|]IWIil P R E T ?" 
5010 P0KE198, 0;WMT 198. 1 -POKE198-0 
5020 PRIMT-WWia; ' EST P fl R T I" 
5030 FORfl=lTul0B0;NEXT 
5040 RETURN 

7800 X=FNRa9>:Z=FNR<6)+l 
7018 P0KED*v:.M Prjr.;E':T+Ln-X.2 
7020 P0KED+X+- 1 , 160 ■ P0KECT+D+X+1 . 2 
7030 P0KED+X*2, 185 P0KECT*D+X+2,Z 
7040 POKEIHX-22, 160 ; PQKECT+DtX-22,2 
7058 POKED+X-21. 160- POKECT+I'tX-21.2 
70f0 POKEIi+X-20, 160:POKECT*D+X-20.2 
7078 POKED+X-44,233 P0KECT*II*X-44-Z 
7030 POKED+X-43- 168 P0K£CT+D+X-43,Z 
7098 POKED*/-'!,.' ■ kkr< ■ P0KECT + JJ+X-42-Z 
7100 RETURN 

i*000 A=FHR'.i8.' Z=FNR<6J+1 
9810 P0KED+X.95 POKED-t-CT+X.Z 
9020 P0KEIl+;-'.-22,233 F0r.EJj + CT-t-X-22,Z 
3050 P0KED-2I+K.223PCiK.ED-21*CT.Z 
3048 F0KEH+X+1, 105-POKEE+X-t-l*CT.Z 
9050 RETURN 

10008 P0KEfl+B.S6-P0KE3bS76,8 
10010 PQKE36877,220 
1092:; FORL = 15Tr.0STEF-i 
18030 P0KE36878A 
10048 F0RM=1T0388 
10050 NEXT 
100tS0 NEXTL 
10078 POKE36877.0 
10888 P0KE36378-8 
10035 LL=LL-1 1FLL=0THEN10890 

18086 PRINT":]" :F0RN=IT0LL:PRINTBJ: PRINT" JM««i]"'N 
18887 FORN-=0TO2088:NEXTN 

18083 P0KE36S75, 15 ' POY-ciVi^, * Fur-e 138, 0: GOTO 110 
10898 PRINT"*UTEMPS: 'VP,L<TI*> 
18100 PRINT"MCHRG0S "CO 
10105 PP=PP+3*F+2*LY*50*CCJ 
10187 PRIHT"«SC0REi B PP 
10118 WFUT653.1 ^RUN 
20000 F0RJ=BTQ24: PRINT: NEXT 
20810 FORN=0TO508 

2001 1 IFPEEKCfl+B) = 102THENF=F+200 

20012 IFPEEK<H+B>=87THENCG=CG+1 

20013 POKEh>S,90 
= 20015 PGKE36874-8:iFF>8TH£NP0KE36876,8 

20020 P0KEFNR(21>+D.87 

20025 IFFOS8THEHP0KE36876/ 195 

20030 IFFNR<188J=99THENFTiKED+FNR'.21J,102 




I+C102 

V\C20 



20040 POKEH+B/32 

20045 FRINT 

20050 GO5UB59000 

28060 P0KE36374,123 

20078 NEXT H 

20080 POKE36974.0 

20090 LY=LY+508 

20100 GGT0118 

20113 LY=LY+200,GOTO110 

30000 FORJ=0TO24:pRINT NEXT 

38010 FORH=0TO200 

38020 GQ=PEEK<H+£/ IFQO=81ORQC=43THEN160i 

38025 1FG.'Q=102THEHF=F*200 

30838 P0KER+B,98 

38048 P0KE36874 ,0:1 FF>0THENPOKE36876 - 

30050 P0KEFNR(21)+B.8I P0KEFNR(21>+D,81 ■ 

P0KEFNR(21>+D,8i:P0KEFNR<21>+JM3 

30068 IFFNR<40;=25THEHPOKEFHR<21)+D-102 

30070 GB=B : GO3US50000 

38838 P0KEH+CB,32 

30085 PRINT 

30098 P0KE36874»e 

30100 NEXT 

38118 G0TO118 

58888 GETfU 

VC-^'v :F- >^:-!-Lr.-:...-r ; .*876, 195 ■ RETURN 

50018 IFfl*»""THENR£TURN 

58820 IFFjJ="2"RNDI08THEUB=£-l F=F-18 

58038 IFfl* = , 'C"HNIiB<21THEN£=B*i:F=F-18 

50040 IFHJ="B"THEN£:=FNR(22> F=F-50 

58046 P0KE36877.234 

30050 RETURN 

60808 X=FHR(20):Z=FHR<6)+I 

68010 POKED+X,86:P0KED+X*CT-Z 

60020 FOKED-t-1+X. 86 ■ P0KED+X+CT+1 , Z 

60838 P0KED-22+X, 36 i POKED+X+CT-22, Z 

60848 PGKED-21+X.36:P0KED'f-X-21+CT.Z 

68858 RETURN 

62388 PRINT'TT' 

62881 P0KE36877.8 

62882 F0RN=255T0128STEP-1 :P0KE36876.H; NEXTH-P0KE36876,8 
62818 PRINT"SI*/0U3 ETES ENTRE" 
62828 PRINT" HVEC 3UCCESM!" 
62038 X-FNR<3) 
62035 F*»"flMie" 
62040 IFX=ITHENFJ="ENHEt11E" 
£2030 PRIHT"DRHS UNE BFiSE "F* 
62860 PRINT , 'KOOa7TEMPS--'VHt.':TI*) 
62870 PRINT." SFUEL = a"F 
62080 PRINT" *NHEES-LUniERES-a ,, LY 
62890 PRINT"«CflRGOS:a"CG 
62099 COF*3+CG*30 

62180 IFX"1THENPRIHT"»-/GUS ETE3 CAPTURE • " ■ G0TO62280 
62110 PRINT M M*0HiJ3;a"C;;PP=PP+CC 
62120 WflIT653,l-GOTO110 
62200 WRIT633,I:RUN 

READY. 



SCRABBLE 



Jouer au scrabble avec votre PC 1500 ? C'est 
maintenant possible grace au programme suivant. 
Bien entendu, il n'assure que les controles mais 
pourquoi ne pas esperer mieux ? A vous de jouer ! 
WOLFRAM VON LUNEN 




Informations complementaires ; 

Reponse a la question "horizontalement ou verticalement" 

1) H ou VNombre de lettres :maxi-15. 1 lettre n'est acceptee 

qu'au premier tour. 

Lettre x : passe le premier tour, s'il n'y a pas un ou plusieurs + 

retour en 1. Si vous tapez une lettre que vous n'avez pas, affi- 

chage de "Tu triches" et retour en 1. 

II y a deux jockers differents : faire la distinction entre et ensui- 

te taper la lettre qu'il represente. 

Affichagede"coordonnees depart" : 1 a 15et AaO si a la place 

de taper une lettre vous tapez / alors retour en 1. 

Affichage de "coordonnees arrivees" 1a15etAaOretourenl 

si la difference entre les coordonnees et la longueur du mot ne 

sont pas eglaes ou si les coordonnees de depart sont supe- 

rieures a celle de I'arrivee. 

2 E. II n'est possible d'echanger des lettres que s'il en reste 

dans le pot et s'il y a plus d'un joueur. 

Affichage de "combien de lettres echangez vous ?" nombre 

compris entre 1 et 7. Si vous tapez 0, retour en 1. 

Affichage de lettres n°x : apres les avoir toutes donnees, s'il y 

en a une que vous n'avez pas, retour en 2 puis affichage des 

nouvelles lettres. Tapez une touche et retour en 1. 

3) P. P fait passer un touret si tousles jo ueurs passe nt leur tour 

I'un apres lautre. fin de la partie. 

Lorsque la partie est finie. si des jetons restent aux autres 

joueurs. leur somme est ajoute au total de celui qui n'a plus de 

jetons. 



I suite du 
^^ listing du 
N30 



a-1 a-3 oa 0=2 e-; 



d- mot cwrt: TRIPLE 

D« KlI C0WTE DOUBLE 
D- LETTRE CXtTTE TRIPLE 
U- LEtTRE COWTE DOUBLt 




























































































































































































































































































































































































































































































SCRABBLE 



G- HOT COTFTE TRIPLE 

n- rmr cohpte double 

D- LETTRE COW TE TRIPLE 
D" LETTRE COWTE DOUBLE 



fi^i^rivrfli'ffi'Yi 


t p RIZ 


C G lIQIIlTQ 


;|Bai-::pDiy 


; H C-B j SI |rjHBE£"' 


l \— u D 1 


'REVti* — KQ|ua_ 


■i"LlI"E"E^CES _ " 


li-E'I'lCDIE 



pC 



asoo 



ler = 

AUEC: 



PIERRE 
284 POJNTS 



'HEN LET PT^ 



I'joea: if li<U)--"D" 

OR L»(U)--'*G" 
OR L*<U)'"r)' 

THEN LEI I' I 

2 
l^ayar II PX 2THCT 

GOfD 15128 
150^b: IF \i**'*« 



rHEN GOIO 15 

120 
I: IF A*<X1,YI) 

■■1"THEN LEI 

or=PT*2 
): IF 0*CX1, YD 

="2" THEN LET 

Pi-PT*3 
I: IF fl*CXl, Yi; 

="3" THEN LET 



VJ) 



I5125:t 
15130:. 

) 

I5H8: 

; 

15200:( 



= "4 ,r rHEN 

nu=nut3 

l:PS=PS+PT 
: IF PX=2THEN 
GOTO 20805 
Y1) = L 



ET 



FIN OE LA Pa 
RTIE": 
GLCURSOR (5, 



20082:' : OR 1 = 1 TO 7 

20083: IF J*(U, !)<> 

"-'THEN LET 

L»tW>=J»{U, I 

28004: IF J*<U, I JO 

"-■THEN LET 

PX=2 
28885: IF J*(U, I JO 

"-"THEN GOIO 

15088 
28006:NExr l:nT(U) 

spSsIF M<J0 

THEN GOIO 20 

801 
2880?:fOR U^l 10 JO 



i if riKLij^a 

THEN LEf T(W 

>-i<u).np 
):mext u 

i: TEXT :CSIZE 
i: COLOR 11 
8EEP 4 

I: FOR U=1I0 JO 

ISLPRINT " 
";NI(U); " 
nfiROur i "; ' 
<uj!" prs" 

CHEXI u 

•slF r<n>rc2) 

AND T( 1 ))!(3 
>nND t(l)>I( 



21028 

21838 



14: IF r(2)>TClJ 
am U2)>T<3 
IfiNO TC2)>T( 
4) THEN LEI J 
0=2 

6: IF I(3J>f(l) 
AND r(3)>r<2 
JflND T(3)>rt 
4) THEN LEf J 
0=3 

8: IF rc4)>T(I) 
QND T (4 J i 1(2 

)rno r<4)jrc 

3) [HEN LEf J 



- = ";n»<J0> 
:LPRINT " ft 
UEC: *; rtJOJ; 
" P01NIS":LF 
2 
): UOIT 8:PRINt 
"UNE OUTRE P 

Fnrc pflRTit 

■'" : BEEP 1:0 
*=INKEY» : IF 
0!=""tHEN 
GOIO 21880 
li IF D* = ,, 0" 
'HEN GOTO I 
IF D*--"N" 
fHEN END 
GOIO 21 



01 I 



130; 



58811 
58012 
50013 



'JHT ' 



PR1NI ■'REGLE 

DU JEU" 
PRINT "Le »u 



■<r de» ".oi 
PRINT •■tell 



014:PR]Nt "de« 

015:PR1NT "com 
r d* la va 
ur do" 

016:PRINT "ler 

DI7:PR1NT "boni 
. Poter tei 



1H 


PR I 


41 




e (all 




«(» 


?10 


ia 


PMI 


il 



508^8:PRINf 
pportei 

5082i:PRJ"T 

1. Un 

50022: PRINT 



50023:PRINI 
50024:PR]HT ' 
50025: PRINT ' 
50026: PRINT ' 
50027:PRINI ' 
58029:PR1NI ' 



58831 : PRINT "«er-i 
58832:PRINT "II i 

50033:PRINt "del 



58836 : PR I M 
58037: 



NI ' 
5003B: PRINT ■ 

58033: PR'lNr 

ui de" 

50040;PRtN[ ' 

•500-1 ] :PR1NT 

lotul 
•30017: PRINT 
js dc i 

•jB813."R|N[ 

•n-r,c -if 

30fl44:»RINI 

', ; m.i' 1 :"KIi:i 
38046: 



NT 



COURSE MZ so 
AUTOMOBILE 



Ce programme transforme votre MZ 80 en un 
MZ 80 special course. A vous les grands prix, pour 
le prix (modique) d'HEBDOGICIEL ! Les r6gles du 
jeu sont entierement decrites dans le programme. 

PEIGNIER 




2 R£P • ELLE S£ OERCUuE EN '3 TABLEAUX 



7 U-3:lH>8:Kn-B:T6'l 

3 PRINT'S-; H-f?jN7IrtB£6); 

«R F. PEIGN]£R«*K.' 

9 PRINT' 1 
C3C3C3C3C3C3C3C3C3- 

'8 PRINT ;PRINTI«BC3) ; C« 



ufORnULE 1 P 



C3C3C3C3C3C3 



15 i-RInT :P?iNTTfl3C33 ;■'"-• but >il at f a j 
28 PRlNT;PR]NTT«8t3],'-di tableau «i de 

22 PRINT :PRINT7fl3t35 i 'Uoul m'a«»i qu« 3 

23 PRINT :PRINTTPB[3J , "Uoui eJ«vez falre 
2 icurt par iaBl«au'' 

25 PRINT :PRINTT«3£IB] ;-'P6F6FB dir-telion 

F6F0F8" 

38 PRINT ^PRINTTP-BCS);'^ j la uoiturt » 

35 PRINT :PRlNTTPBC5J ;"X : la uo]Ll«>« d 

"8 PRINT :PRINTTflS£5:;-'S i lo uoilur* v 

«5 PRINT ;PRlNTTft8C5) ;"'F - la uoilur-« u 
50 PRINT :PRINTTflBt I2J r'BOSNE ROUTE" 



-ThEN6B 



RIN 



i85 F0RX=1T07S:SETX, I :SETX, 46 iNEXTX 

'10 F0RX=!T046:SETI ,X :SET78,X iNEXTX 

'28 F0RV»1T023-S£:ia,X.SET3a,X:SET58,X: 
SET 19, X.SET39,X.SET59,X. NEXTX 

M8 FOR>*10TO33.SET0,X-SET!8,X:SET4B,X: 
SET68,X:SET9,X:SET29,X:SET49,X:SET69,X 

'58 NEXTX 

'68 FDRX>9T069:SETX,39:SETX.3B-'NEXTX 

'70 G0SU33BBB8: IFTM=3THEN2BB 

'B0 IFu<=8THEN4SI0a 

158 GOTO 170 

288 PRINT'S" -TH=0 

285 F0RX=!T07B:£ET<. i -SETX. <\? :nE/tx 
210 F0RX-1T047;SETI , X ^SET?8, X :n£XTX 
220 F0RX=18T069-S£TX, 18 ■?".!:*, I9-SETX.3B 
:$L~y, 33-Stlz- 10,28 'SLTX* 18,29 :N£XTX 

230 RESET?3,2S;RESEr79,29 

240 f0RX=lT03-5ETlB,X:SET38,X:SET58,X;S 
ET19,^:SET39,X.-SET53,X-NExTX 

258 FORX')0TOl9;seT8,^;SE:28,X:SET4a,X: 
^ti3,/:S£T2S,^:S£T49,X-SET69,X:SEr68,X 
260 NEXT* 

278 FORX^19T039.S£T8,X-S£T3,X;Nf_XTX 
298 GOStjB38880:iFTN-3TnEM30B 
28S IFU-C8TNEN4518B 
290 G0T0288 
388 PRInT-D" :Tr>-B 

318 F0RX=1T07S;SETX,1 :SETX, 4? :NEXTX 
320 F0RX=1 T047 = SET 1 , X :SET?8, X :NEXTX 
338 FORX=8T063:SETX,B;SETX,3:NEXT 
340 FCRX=STO39:SETX,28:SETX,29:SETX*10, 
18:SETXtl0, !9:NEXTX 

358 FORX»38T069:SETX,38:SETX,39:SETX>ie 
, 28 ;SETX-< IB, 29 :NEXTX :RESET79, 29 
358 R£S£T73,28;F0RX = 8TD19.-SET68,X:SET69 
,X:SET8,X*2a:SET3,Xt20;SET3B,X+28 

370 SET33,X--2B:SET48,X-HB:S£T49,X-H8:se 
T8,X:SET9,X:SET8,X->1B:S£T9,X-'18:NEXTX 
380 FPRX-38T047-SETI8,X-S£TI3,X:SET2B,X 
:SET29,X:NEXTX 

398 F0RX"18TO29:SETX,38:5ETX,39:NEXTX 

395 GOSUB380e8;IFTH=3Tf£N488 

397 IFUC-BTHEN45188 

338 GOT039S 

400 PRINT"B":TM-8 

485 F0RX-1T07S:SETX, 1 :S£TX,47 :NEXTX 

4 I 8 F0RX-1 T047 ;S£T 1 ,X :SET?8, X -'NEXTX 

415 FORX»1BT069:S£TX, IB^SETX, I9:S£TX,28 
:S£TX,23iNEXTX 

428 F0RX-BTD9-'SET28,X:S£!29,X:SET58,X:S 
Er53,X:SETI8,X^I8 

425 SETI9,X-'IB:SET38,Xtl0:SET33,X--I0:SE 
T49,X»10;SET48,X*lB:SETlB,Xt2B 

430 SET13,X*2e:S£T68,X-.28:SET89,X+20:SE 
Tlfl,X*38:SETl3,Xt30 

435 SET38,X»38:SET39,X*30:SET48,X'3B:SE 
T49,X'30;nEXTX 

440 RESET28 j BjR£S£T29,0:RES£TS8 1 0:RESET 
59,8 

445 F0RX»38TQ46:£ET58,X:SET59,X:SET28,X 
:SET29,X:n£XTX 

450 F0RX^5BT07B-5ETX,8:S£TX,9:SETX,38;S 
ETX,39:n£XTX 

455 F0RX-BT013;S£TX.8--SETX,3»SETX, l6:SE 
TX, I7:SETX.33;S£IX,32:SETX,38:SETX,33 

460 NEXTX 

465 F0RX-18T0l?:SET8,X-SEr3 J X:S£T8.X*22 
-SET9,X'22iNEXTX 

478 F0R>-1T09:££TX,2S:SETX,24:NEXTX 

i?5 F0ft*-39T048:SETX,I8:SETX, I I ;SETX,3B 
:SETX,39;N£XTX 

488 G0SUB38BaB;IFTW = 3Tr"6N58B 

485 IFU<-8THEN4SI8B 

498 GOT 0488 



RIN 



H-B 



585 F0RX"lT07Bi£ETX, I -SETX, 46 INEXTX 
510 F0RX-IT046iSETI , X :SE T78.X :n£XTX 
M'. I 0R>i-»T(»«<«T>i,7i6eT>,BtseTX.22iSe 
K,23l|i I/"iB, lt:S£TX'l0,l5>SETXTlB,38 
528 SEIX*!8,3I >SETX,3e'SETX,39'NEXl/ 
525 r0RX-0t033.srrB,XtS£T9,X 'NEXTX 
530 GOSIJU3B8B0MFTM-3THEN68B 
*TiZi 1F'J<-8TMEN4j18B 
Ml MT05M 



608 PRINT ,, ,, :TH=8 

60S F0RX>1T078:SETX,1 ."SETX, 46 :NEXTX 
610 F0RX-1T046:SET1 ,X -SET78, X :N£XTX 
615 F0RX-2T09:RESET1 , X 'RESET7B, X :N£XTX p 

SET78,8:£ET78,9 
620 F0RX=8TO69;5ETX, 30 =SETX, 39 iNEXTX 
625 FORX=0TO!3:S£TX,8:SETX,3:SETX'H0,3a 

:SETX->10,39:SETXt30,38.SETX'30,33 
628 SETXT40,8;SETXt4B,a S£TXrS0,38 
630 SETX»50,33;S£TX^2r40,2B:SETX'2'48,2 

9:SETXt20, 18:5ETXt2B, 19:NEXTX 
635 FORX=1T033:SET6B,X;SET69,X INEXTX 
64B FORX-8T029:SET58,X:S£TS3,X!NExrX 
645 FORX=BT01B:£ET28,X-SET29,X:SET1B,X* 

10:SET13,X+IB:S£T18,Xt20-SET13,XT2a 
658 SET28, X+28 :SET29 , X'20 :SETX* 1 9, 38 =SE 
TX+19,33:SET4B,X'>3:S£T41,X'-9 

655 SET38,X'28:SET33,Xt20:SETXt19,30:SE 
TX+19,29 
658 R£SET28,0 :RESET23, B :RESETB, B :RESET0 
,9 
BSB NEXTX 

B65 FDRX=IBT033:£ET8,X;SET9,X:SET48,X:S 
ET49,X:NEXTX;S£T78,6;SET?B,7 
670 GOSL8300B8:IFTM-3THEN?0B 
S75 IFU<=BTHEN451BB 
688 G0T0678 
788 PRINT"B";Tn-B 

785 F0RX=1T07B:SETX,1:SETX,46:NEXTX 
718 FDRX-1T046:SET1,X:SET?8,X:NEXTX 
715 F0RX=22T068=SETX,8:SETX,9:NEXTX 
720 FORX°2T014:£ETX, 15-X ;SETX-1 , 15-X:NE 
XTX 

725 F0RX»1T01B^SET18*X,13-X:SET11-'X,19- 
X: NEXTX 

728 F0RX=3ST047 :R£S£T I , X :RES£T?8, X ;NEXT 
X:SET?8,46 
738 F0RX"18TO46;SETl 1 , X :SETl 2,X :NEXTX 
735 FORX"22T078;SETX,3B.SETX,33;NEXTX 
748 FORX»3lT053:SETX,18:SETX,t9;NEXTX 
745 FDRX=5BT069 : SETX, 28 -SETX, 29 :N£XTX 
750 F0RX=ST029 :S£T68, X :SET63,X :NEXTX 
755 FORX-1 T0IB:SET21-.X,23-X:SET22tX,29- 
X=NEXTX 

760 FORX-IT0lB:SET32fj<,29-X:SET33i'X,29- 
X: NEXTX 
765 F0RX=28T039:££T22,X:SET23,X:SET33,X 
:SET34,X:NEXTX 
778 GOSUB300BB:IFTN=3TNENB00 
775 IFU<=8ThEN451B8 
780 GOT0778 
808 PR]NT"0' , -TM=8 

885 F0RX=lT078;SETX, I -SETX, 46 =NEXTX 
BIB FCRX=lT046:SET I, X-SET78.X INEXTX 
81 5 F0RX= 1 8T078 ^SETX, 37 -SETX, 36 iNEXTX 
828 FORX=38T078:SETX,8:SETX,9:NEXTX 
825 FORX=1TOI9=SETX,18;SETX, iS^SETXtlB, 
8:SETX'l0,9:SET28,X-^3-SET29,>*3 

838 SETB,X--27;S£T3,Xt27-S£T48,X'9;SET49 
,Xt9:SET58,X-H7;SET59,XTl?;NEXTX 
835 F0RX= 1 T09 ^SETX, 27 :SETX, 2B =NEXTX 
840 F0RX=8TOI I :SETX'38, 28 :S£TX-r38, 29 
845 SETX-M6,2?;SETX'H8,28-SE7X-29,1B:SE 
TX-i-23, !9:SETX-r50, IB-SETX'SB, 19 
850 SETX-'67,28;SETX-'6?,23;nEXTX 
B55 F0RX=29T03?:SET19 J X;SET1B,X:SE728,X 
:S£T29,X:NEXTX 
860 F0RX=IT03:SET38,X-SET39,X;NEXTX 
865 fORX-30TO4?:RESETI,X;RESET78,X!NEXT 
X 
878 GOSUB38800:IFTM-3TM£N388 
87S IFIK-0TMEN451B8 
B80 G0T0B7B 
908 PRINT"'fl"-TM»a 

905 F0RX=1T078:SETX,I=S£TX,46:NEXTX 
918 FORX»1T046:SETI,X;SET78,X:NEXTX 
915 FORX-BT063;SETX,38'SETX f 33;NEXTX 
320 F0RX-18T0S9:SETX, IB -'SETX, 19 :NEXTX 
925 F0RX-8TO29:SETX,8--SETX,3;SETXt4B,8: 
SETXf48,3:NEXTX 

938 F0RX-8T039:SET8,X:SET9,X:SET68,X:SE 
T69.X iNEXTX 

935 F0RX-1BT03B:S£T|9,X:SET1B,XiSET59,X 
:SET58,X:NEXTX 

348 F0RX-26T033:SET29,X;SET28,X:SEI48,X 
:SEI49,X=NEXTX 

945 FORX-IT032:S£T38,X-S£T39,X:NEXTX 

958 gosub30b80;iftn-3theni88b 

955 IFU<"8TMEN4SI8B 

368 GOT095B 

1888 PRINT^'B" -TH = B 

1885 F0RX=ITD?8^SETX, I -SETX, 46 iNEXTX 

1018 F0RX=IT046.S£T1.X-SET?8,X:n£XTX 

1815 f0rx-2bi033 ; res£ti .x-reset78,x-2:n 
extx 
1828 f0rx-8t07i :seix, 4b :seix. 4 i :n£xtx 

1838 FORX-1 T04B ;SEIX, 34 ^SETX, 35 :S£rx*3? 
. 25 iS£TXt37,24 ;N£XTX 
1835 F0RX-24T04I :SET50, X ;SET57 , X :NEXTX 
1840 FDRX=65T078 iSETX, 32 iSETX, 33 INEXTX 
1045 FaRX»24T069:SEf/,6-SETX, 7 iNEXTX 
1058 F0RX-6T035 ;SE 18, X-SE 19, X iNEXTX 
1855 FORX- I T02? -SET 16, X iSETl7, X iNtXtX 
1060 F0RX-?1T039.St IX, L5iS£TX, IflSNEXTX 

IMS huk.. bto b ■ •-/". ■ -.t.72?.,x.ai:nB.x 

■SET33.V iN| ■■ - 

1078 F0RX*IGT035-<;!.;3B,>.£eT31 , x iNEXTX 

'BOB lORX-!108iSET>t|5,26iSEIXt|5,27:SE 
I4e,X»|0iS£T«9,Xi'G-SeT68,^iin 

•085 SET69;x<l6;SET59,XT?:SET60,X<7iNEX 
TX 

109B G0SUB38BBB- [1 1M-3TNENI 100 

1895 IFU<«BTNEN45IBB 

IB9B G0IOIB98 



13 Mkros-portatifs a prix 

charter Duriez 




DURIEZ EST LE PRE- 
MIER specialist des 
calculatrices avancees el ordi- 
naleurs portaliTs. 

Fondeen 1783, Duriez nese 
laisse pas emballer par le non- 



durable. II propose lous les 
derniers modeies valables, 
avec accessoires, programmes 
de jeux, d'affaires ei person- 
nels, livres, modes d'emploi, 
notices descriplives : Sharp, 
Canon, Olivetti, Casio, 
Hewlett-Packard, Epson... 



Duriez esi ouvcri 132, Btl St 
Germain, Paris 6'(M° Odton)de 
9 h 35 a 19 h sauf lundis. Machi- 
nes a icrire, papctcrif, maicncl 
de bureau : 112. Bd Si Geimain. 
Ouvcri lundi au samcdi 9 h 30 - 
18 h 30. Fcrmc lundi ci «mcdt de 
13 a 14 h. 



Achetez sur place ou par poste Voy ez le Banc 

d'Essai Duriez 



•fkickit it n lociciels Texas ti 99a* * * • • * 

4t Buiger Time F lie 250 Oihello 188 i*. 

jeu. Video 2 188 ]„ 8.«ke. 250 ^ 

4)t Hoppe. 250 M«h 250 + 

■ "liftng 134 

wi privec 3S0 T^ 

mtmoue SCO 



* 

* 
* 
* 
* 
* 





Supper Demon Attacfc 


250 


* 


Return ioPiraie'ihbnd 


25* 








* 


TI Inviden 


181 


*#******♦*< 


* 


Sharp PC 1500A . . .F 


1980 




ImprimomeCE 150 


1990 


* 


PC IS00A + CE150 . . . 


3900 


* 


CE 161 


1700 


* 


lni .fo (e RS233po- o ll»l* 


1990 


PC 1401 


1480 


* 


PC 1251 


1215 


PC 12i5 


750 


Psrlph. pour 1251 ou 


1245 

169 








* 




1635 


* 


HP41CX 










-* 


Accui retho'gsoblei . . 


390 


+ 




155 






1090 


* 


lr,t,r,a«mogr.*.oFA2 . 


280 


* 


lmp.-imonr.FP 10 

FX 802 P 


610 


* 


PBIOO 




l-ilnr (oil mognilo FA3 

lrnprimanl«.F>l2 

PB700 


285 


* 


600 


1660 


* 




2280 




850 


* 






FP300 


3280 


-K 


M«no,r« 6 Ko 


623 


* 


Cordon mogntto .... 


85 




2281 


-* 


Cordon impKm. paralltla 


390 




4430 


* 




512 


Adapitur iecf«ur ..... 


225 


* 


Olivetti M 10 . . . 


5990 


* 


M*™>ir»8tCl> 


826 


Adopleuriamur 

Co-Jon Imprim parolltls 


98 


* 


199 


* 


Canon XO.718 >.-.) 


2170 



* 


T-O(. u r4(o«l 1850 


XO 7 ♦ •-;..• 3900 


* 


v.- :-.;.-. ;so 






* 
* 




Anplilic ft; J]; . Cordon 725 


Co.doi.r.p,-« p .ol!*l. 295 


* 


Co«. f«h;.r 530 


AdoplolsuriKl.ur ..... B2 


* 


Ep»onHl70 S800 
Mogneio 1100 


* 


M*moir» 16 Ko 1200 


Modem . cordon 1755 


* 


Prix ou 3 Mo! 1984. En coi 


* 


d« chang*m*nt Durl*i vout 


ovli* avont •xp4dftton. 



*- PACES SUR SHARP, 
Z4 COMMODORE, SIN- 
CLAIR, ORIC, CASIO. 
EPSON, THOMSON, etc... 



Ce Banc-d'Essais-Caia- 
logue esi un condense dc 
caracteristiques lechniques 
precises, sans delayage publi- 
citaire. 

II est complete par des 
appreciations et des tests 
Duriez sans complaisance. Et 
des conclusions pour guider 
voire achai. 



Je commande a prix c harter Du riez : 



132, Bd Si-Germain. 75006 Paris' 

Tel. 329-05-60 
n I catalogue Duriez complet 
graiuii (calc. Scieniifiq.. ei impri- 
manies. Machines a dieter, 
Repondeurs teleph., Mach. a 
ecrire, Duplicaleurs, Materiel 
bureau, Classeurs, etc.). 
D Bulletin de micro-ordinateurs 
avances. 

D . . . calculatrice(s) marques et 
modeies suivants : 

□ 

□ 




□ Jc paierai a recepiion (Contre ^ 
Rcmboursemeni). moyennani un 
supplement de 30 F. 
Mes Norn, Prcnoms. Adressc 
(N°. Rue. Code. Ville) : 



Port et emballage 40 F. 

□ Ci-joint cheque dc F Dale ct Signature : 

loulcs taxes incluses (ou) 



I ftUN 



:TH 



:iB5 F0RX = lT0?8:SETX, 1 :SET>t,46:NEXTX 
■ 118 F0H.X-IT046:SET1.X:SET79,X:NEXTX 
1 1 15 F0«X=B1'069;SETX, 12:SETX, 13:SETX,4B 
:SETX,41 :NEXTX 
I 1 28 FORX=28TO?B :SETX, 26 'SETX, 27 =NEXTX 
1 125 F0RX= 12T039 ;SETB, X :SET9, X JNEXTX 
1138 F0RX-8T01B:S£T28,X:SET21,X:SeT36,X 
:S£T3?,X:S£T52,X:SETS3,X:S£T68,X 
l 135 SET69,X:N£XTX 

1148 F01!X-34T04B:SET2e,X;SET21 .X--SET36, 
X:SET3?,X=seT52,X-SET53,X:S£T68,X 
l 145 SET69,X;NEXTX 

1 158 F0RX»I8T034 ;SET28, X ;SET29, X :SET44 . 
X:SET45,X:SET6a,X;SET61 ,X;NEXTX 

1155 FORX=1T07:£ET2B,X:SET29,X;S£T45,X: 
SET44,X:SET61.X:SET68,x:SETl3,X:SETI2,X 
1168 NEXTX 

1178 G0SUB3B8B8:IFTN-3THEN12BB 
1188 1F0<=BTHEN4518B 
1 198 G0T01 17B 
1288 PRIHT-fl iP :TH-B 

1285 FDRX=II07B:S£rX, 1 =S£tX, 46 =NEXTX 
121B F0RX»IT046:SETI , X ;SET?8, X =N£XTX 
.1215 FORX=8T078:SETX,6:SETX,7iNEXTX 
122B F0RX^16T06a-S£TX, I4;SETX, 15:MEXTX 
1225 F0RX=8TD69--S£TX,4B;SETX,4I ;N£XTX 
1238 F0RX'I6T053:S£TX, 32 ;SETX, 33 JNEXTX 
123S FORX-24 T053-SETX, 22 :5£TX, 23 iNEXTX 
1248 F0RX-6T041 -SETS, X :SET9. X =NEXTX 
1245 F0RX'l4T032-5ETI6,y:SETI?,X:N£XTX 
'2S8 FORX=22T032:S£T5B,XiS£T59,X:N£XTX 

1255 FORX-14T04I .-SET6B.X :S£T69, X :N£XTX 
1268 X=B:K*1 : 2=2B4 :P0KE54 I B6, 294 
1265 GETG«.IFB*-" *TMENl26B 
1 278 POKE54 I 86-rX, 2 ;P0KES4 I B6tX-K,B 
1275 iFP£EKC5llB6'>*K)<>Brrt£NG0SUB45B88 
:M70I33B 
128B r,£TGt. I r<3* =■"£' THE W— 4B = Z=2B2 
1285 IFG#-"X"THENK-48;2=2B5 
1298 IFG*« i 'S' , TMENK--l !^-283 
1235 IFG«-' , F' , TMENK»1 ^?=2B4 
I 388 X-X'« ; 1FCX- I )-• CX— 39 J TMENTM-TH* I 
1385 IFCX— 31 1 1»C»— 271)tCX— 35111MENP0 

KES4l86»X-K,B:X--74l ■<•-} =!=203 
1318 rFTH-3rrlENGOSUB5BBB0:GOTDI330 
1315 CUR50RI,?4;rM*lNT"Kri--;Kn,"TfWLEflLl: 
";TBi" ;TH;"T0URS - ; 

'320 Kfl=Krl* I ^P0«E5?34B.255iP0KE5?3S2, 1 s 

G0T0127B 
1338 IFTH-3THENI488 
1340 IFU<-BTHEN15IBB 
1358 G0T0126B 
14B8 PRINT'fl'^TN-B 

1405 fORX»IT07B;SETX, 1 :SETX,46 =NEXTX 
1418 F0RX-IT0'16'SETI 1 X:S£T78,X»NEXTX 
1415 F0RX-iT027'RESETI,XiRESET78,x:NEXT 

. 1420 F0RX-Bt009;SETX,38;SETX,39iN£XTX 
1425 FORX-18T019:SETX, I2:SCTX. I3:N£XTX 
I 430 FORX-lTOigiSETB.X-SETg.XiSCIOS.X'? 
:&£Tfl9,X»7iN£XTX 
I 435 F0RX-lT039:SET63,X SET02, X ^NEXIX 
I 440 FORX-BI09:SETX, 18:5ETX, I 9 iNEXTX 
1445 FORX'fleTOjg^eTX.e^SETX.aiSETX^Oi 
5EIX.27INEXIX 
I450 IO«X-lTOI7^Cl>,28'SeTX,29!NEXTX 



H5/84 

I45S F0RX-I2T029!SETI9,X;SET19,X:NEXTX 

1468 F0RX=lT02 ; SET48,X*l :S£T43,X-rl :SET4 
B,X+S:SET49,Xt5:SET4B,X'9:SET49,X*9 

1465 SET32,X-r3:SET33 J Xt3:SET32,X'?;SET3 
3.X*7:N£XTX 

1470 F0RX-1T02:SET48,X»13;SET49,X»13JSE 
-T48,X-r|7:SET49,XTl7:S£T48,Xt21 

1475 S£T49.Xf2| -'SET48, X*35 :S£T49,X*25 :S 
ET48,Xt29:SET49,X-»29;SET33,X*31 

14B8 SET4a,X»33:SET49,X*33!SET33,X-H5:S 
ET34 , X' 1 5 :SET33,X-r 1 9 ;SET34 , XtSl 

1485 SET34,Xtl9:SET33,Xt23:S£T34,X+23:S 
ET33,X-r27:SET34.XT27:S£T33,X*35 

1498 SET34,Xt3S:nEXTX 

1495 GOSUB30BflB;IFTM-3TNENlBa 

1497 lFU<=0Tr*EN451B8 

1498 G0T0I495 
29999 END 

3008B X-0:K»l --2-2B1 :P0KES4 I B6, 2B4 

30085 G£TG* : IFG4-" " THEN3BB85 

38810 P0K£54IB6TX,?;POKE54lO6'X-K.e. 

38815 IFPEEKC541B6'X*K)<>BTH£nG0SUB4588 
0= RETURN 

30020 G£TG*:IFG* = -E"TN£NK='-4B:*-2e2 

38825 IFG4-- , X"TNENK-4B:?-285 

30838 IFG«-' , S"TMENK— 1 :?"203 

30040 IFGi-'-F-THENK-l ■■J-28S 

30050 X-X*K--IF(X-IJ»CX"-39)ttX--79nHEN 
TH-TMt I 

38888 IFTH-3TNENG0SU65BB8B ^RETURN 

30090 CURSOR! . 24 ;PRINT"Kr : " ;Kn, "TABLEftU 

I'iTBj* ■ , iTH;"T0URS -; 
301 IS Kn-Kfl-l :r'0XES7348,255ipOKES?352.1 

>soT03aeie 

45BB8 U-U-l ;F0RJK-25T0ISTEP-8.S:P0K£573 
48,JK:P0KC57352, I ;nEXUK -USRC621 

4581B PRINT i 'li' , .CljRS0Rl,24:PRINT-IL NE U 
OUS RESIE OUE" ;u; i- WITUR£S " ; 

*5828 P0KES4|B6tX,B 
45838 TORPOI »i :05OB:N£MP01 iREIUftN 
45180 FORrTu-lTOI888:>c;xTTTU 
4S1 18 PRINI"B" 
45178 PRlNTIMK^iritPfWlC TCRnlNCEt* 

45130 PRINT JPRlNl:PRINTTABC3)i"Uou» u"» 



45 t 40 .■'RlNLPRlNririei-JK 'iur l"|TB|"lab 

45150 lmE.LLttJ'(<r!riTMCN452Ba 
45160 PRINT iPRINt iPRINTTnSC3); , 'I.C Hl.H.l 
EUR SCORE CS1 DF.-;nEll.LEUR; , 'KlLOnETRE" 
45165 PRINT ;PRlNT:PRINlTfl8C3);-ET fl EIE 
RErtLlSER PflRj'. PRINT ^PRlNTNOnt 

45169 PRINT -F-RINfEN "jtMNI" TABLEAUX"" 
F0RTTU-IT02B8-NEXTTTU 

45170 CtlRS0RI2,22^PRINT" CONCURrtNl SUIV 
flNT" 

45I80 GETG* UrG«-'" , TMEN4SIBB 
45198 U-3!Kn«0:TM-O;GUTOe 
4ri7nil nE]I.LEUR-Kn<PRINPPRINT i, IH"-'- ■ I 
TRC NOn" 1 1 NPUTNOn* ■ TNH-TB IGOT045 I 08 
45388 11 U-OIM£N4S1HU 

■iuumi ! ju|-i ,i ., frr .tin Tti -in (i -mi .I'"H" •> > 

az- 

'.lllllll n'MNl'D" ■< ItHMlRI/. : J- i HM I M r ■ I'lfH i fl 

ii BUIUlWl ' -ui k.« ■ li a*«'"THGN9M10 
50020 IU'IH.1 iRtTUtt* ■ 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus! 
Rien de bien original dans cette 
formule, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Etavec des prix dignesdes pro- 
grammes que vous allez nous 
envoyer ! 

De plus, ce seront les iecteurs 
eux-memes qui voteront pour 
leurs programmes preteres sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGIN AUXet FRANC AIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
lameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a 1'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglemenl 

ART, 1 : HEBDOGICIEL organise 
de facon mensuelle et tnmes- 
tnelle un concours dole de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre 
ART 2 Ce concours eslouvert a 
toul auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K7 ou disquetle accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constilue I'acte de can- 
didature 

ART 3 La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
quahle et de longinalile les logi- 
ciels qui sont pubhes dans le 
journal 

ART 4 Ce sont les iecteurs qui, 
par leur vote, determment les 
meilleurs logicieis mensuel et 
trimestnel 

ART 5 Le prix alloue pour le 
concours mensuel sera remisau 
plus lard un mois apres la clo- 
ture du concours mensuel 
ART 6 Le prix alloue pour le 
concours trimestnel sera remis 
au plustard un mois apres la clo- 
ture du concours trimestnel. 
ART 7 Le present reglement a 
ete depose chez Mailre Jauna- 
tre. 1 . rue des Halles 75001 Pans 
ARTS HEBDOGICIEL se reser- 



ve le droit d'interrompre a toul 
moment le present concours en 
en avisant les Iecteurs un mois 
avant 

ART 9 La participation au con- 
cours entraine lacceptation par 
les concurrents du present re- 
glement 
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Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi. pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom 

Pre no m : 

Age : Profession 

Adresse : 

N telephone 

Nom du programme 

Nom du materiel utilise 

declare etre lauteur de ce programme qui n est ni une imitation m une 
copie dun programme existanl Ce programme reste ma propnete el 
j'autonse HEBDOGICIEL a le pubher La remuneration pour les pages 
publieessera de 1000 francs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee; 

Signature obligatoire 

(signature des parents pour les mmeursi 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un descriptildetaille du m aterie l utilise, 
d'une notice d utilisation du programme Les supports des program- 
mes publies sont conserves, n'oubUez done pas d'en laire une copie 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'indiquant sur votre 
Bon de Participation. 

• N'oubiiez pas et ceci est tres 
important, d'inscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et te materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM, votre nom, le nom du pro- 
gramme et le materiel auquel ilest 



destine Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de rimprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gistrement differents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sont pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, mettez votre adres- 
se com p lete et votre numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "petites 
annonces", "abonnement" et 
"programmes" specifiez sur vos 
enveloppes i'objet de votre cour- 
tier. 



Ne nous envoyez plus d'envelop- 
pes timbrees, mettez simplement 
les timbres joints a votre envoi. 

• Explique2 les particulates de 
votre ordinateur et le moyen 
d'adapter votre programme a 
d'autres ordinateurs. 

• Vu lenombre important de pro- 
grammes similaires que nous re- 
cevons. evitez de nous envoyez 
lesjeux suivants : BIORYTHMES, 
MASTERMIND, PENDU. TOUR DE 
HANOI. CALENDRIER, BATAILLE 
NAVALE, POKER, JACKPOT, 
BOWLING, BLACK JACK. LABY- 
RINTHE. MEMORY SIMON, 421, 
OTHELLO. SOLITAIRE, LOTO, 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEOUE. 



DDI OFFRE CINQ CASSETTES 
DATA OR VIERGES AU MEIL- 
LEUR PROGRAMME DE CHA- 
OUE CATEGORIE. 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 
IL OFFRE EGALEMENT UN 
"CALC" ET UN "GRAPHE" POUR 
LE MEILLEUR PROGRAMME 
CANON. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leur livre "autour de la bou- 
cle" de Janick TAILLANDIER. 



GAGNANT DU CONCOURS MENSUEL 
HEBDOGICIEL 

Christian PASCAL pour REUSSITE sur T07 



GAGNANT DES DEUX CASSETTES 
OFFERTES PAR SQUIRELLE 

Jerome DENOT pour HUBERT MINEUR DE FONDS 
sur ORIC 



GAGNANTS DE LA GAMME COMPLETE 
DE JEUX SUR FX 702P ET PC 1500 OFFER- 
TE PAR LOGI'STICK 

Philippe BARREAUD pour AGENDA sur FX 702P 
Marcel GRIESMANN pour FORMULE 1 sur PC 1500 




GAGNANTS DES LIVRES DE LA REGLE A 
CALCUL ET DE 5 CASSETTES VIERGES 
DATA OR OFFERTES PAR DDI 

Marcel GRIESMANN pour FORMULE 1 sur PC 1500 
Philippe BARREAUD pour AGENDA sur FX 702 P 
Jerome DENOT pour HUBERT MINEUR DE FONDS 
sur ORIC 

Christian PASCAL pour REUSSITE sur T07 
Lionel LIGNON pour JE DESSINE sur APPLE 
■Didier MAAS pour BARRICADE sur ATARI 
F..DESJARDINS pour BUDGET FAMILIAL sur 
COM. 64 

B. INTERNICOLA pour LABYRINTHE INVISIBLE sur 
VIC 20 

J. GOURDETpour AQUARIO BUSINESS sur SPEC- 
TRUM 

P.A. LOTHE pour ORDINATEUR DE BORD sur HP 41 
Regis RIVIERRE pour MORPION sur MPF II 
Didier PARENT pour JACKEPOT sur PC 1211 
Yvan HARY pour DONJON sur CANON X07 
Ch. LEFORESTIER pour SPACE SHUTTLE sur MZ 80 
R. GALLIERpourVOLDELACOURONNEsurZX81 
P. DAO-DUY pour GRENOUILLE sur TRS 80 
Stephane DUNGLAS pour CALENDRIER sur Tl 99 
Basic Simple 

A. RUYER pour MOTS CROISES sur Tl 99 Basic 
Etendu 



LE HIT DU BLASE 



Article du 1" Mai 1984, 
Bonjour, je regrette pas d'ar- 
ticle cette semaine, je suis en 
vacances. Alors a la semaine 
prochaine. 

Bien a vous, CLAUDIUS. 



vl^ Suite de la page 1 
Fiche technique 

Microprocesseur : 65C02 

{1 Mhz) 

Memoire RAM : 128 K octets 

Affichage ecran : 

80 colonnes - Adaptateur 

RVB perite! en standard 

Clavier :AZERTY- idem , 

Apple 2e 

Ports serie : 2 

Port : Joystick ou souris 

Unite disquettes : 525 

integree 

Un port pour 1 unite 

supplemental 

Systeme d'exptoitation : 

Prodos 

Polds : 3.4 kg 

Extensions : 

- ecran plat (LCD). 24 iignes 
x 80 col. 

- souris 

- imprimante a transfer! 
thermique 

Prix : 12 700 TTC environ 
(avec un cours interactif en 
6 disquettes). 



Suite de la page 1 



me "REUSSITE" sur T07. Cest 
normal a triple litre : 

1) Qui d'autre quo PASCAL pou- 
vait gagner pour PAOUES. 

2) Sa reussite en est une. 

3) T07 ne pouvalt gagner que 
maintenant pulsque T07 est 
mort. vive M05. T07/70 et con- 
sort. 

Ne croyez pas que nous avons 
triche. e'est une vrale coinci- 
dence, e'est vous qui avez vote ! 

G. CECCALDI 



PETITES ANNONCES 
GRATUITES 



Ch. mod. Tl EXTENDED BASIC + 
Manuel J. Pierre RICAUD 32 rue 
Albert Thomas 75010 PARIS, 

Vds MATTEL Intelevision tbe + 11 
K7 : le tt 2500 E ou la console + 1 
k7 : 1090 E Laurent LETHON 90 
rue Jeanne d'Arc 75013 PARIS. 
Tel. : 583.12.93. 

Vds console CBS (11/83) + 3 K7 + 
Adapt, antenne : 2500 F Olivier 
AZOULAY 8 rue Centrale 69290 
CRAPONNE. Tel. : (7) 857.28.03. 
(ap.17 H) 

Vds ORIC 1 48K + Peritel + ass./ 
Dess. + Forth avec manuel + 50' 
prgs + revues + livres : 3500 F J. L, 
AMBROISE. 53 chemin du Per- 
reux 94400 VITRY SUR SEINE. 
Tel. : 681.18.54. 

Vds ATARI 2600 + 24 K7 + man. a 
levier + man. a touches + man. 
Rotatives. Le tout 5000 F M. DU- 
MINY Chemin des Ecus 59600 
MAUBEUGE Tel. : (27) 62.20.26. 
(ap. 17 H) 

Vds SHARP PC 1500 + CE 150 
(imp.) -t- stylos + papier. Px a de- 
battreHerveANGLADE 
Tel. : 969.26.46. 



Ch, pourTI99/4Amod.B.E. : 500 F 
prgs pour Tl parus ds HEDBO. n° 1 
a 8. Eric DAURIS 13 rue Helene 
Boucher 17300 ROCHEFORT 
Tel. : (46) 99.87.46. 

Vds ZX 81 + Ext 16K + 4 livres 4- 3 
K7 : 800 E F.CREPIN 3 allee Boris 
Vian 93870 PIERREFITTE 
Tel. : 827.87.22. 

Ach. ou Ech. Prgs jeux PET. 
CBM. COMMODORE 4000. 
64, VIC 20. Mr CASTRO Club 
Magenta, 18 bdl Magenta. 
Tel. : 208.69.29. 

VENDS Tl 99/4A -+- cordon 
magneto + interface SECAM + 
manettes de 1 jeu + tome 3 de 
JEUX ET PROGRAMMES + 30 
programmes (valeur 2.310 F). 
Vendu 2.000 F Etat neuf sous 
garantie. Thierry NOVERRAZ. Tel 
324.08.10. 

VENDS Tl 99/41 + cordon K7 + 
joystick + logiciel de jeu importe 
USA+ prise PERITEL. Achetejan- 
vier 84. Vendu 1.900 F David AR- 
NAUD. 14 allee d'Orleans 33000 
BORDEAUX. Tel. (56) 52.64.60 
(apres 18 h). 



SOLUTION DE L'HIPPOREBUS : 



10 FOR 1=1 TO 9 

20 READ X 

30 PRINT CHR$(X); 

40 NEXT I 

50 END 

60 DATA 65,77,80,69, 

82,83,65,78, 

68 




CHnnifTER! ilodcKumier 

— — I 
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DEMANDEZ LE PROGRAMME 

/Achetez vos logiciels les yeux termes, nous les avons testes pour vous ! 



f \fc> 



Nous avons select/onne poor vous les meilleurs logiciels actuellenwnt disponibles en France. Nous n 
pretentions pas que cette llste est complete et definitive et II est 6vldent que nous y rajouterons rigu- 
llerement des programmes au tur et a mesure que nous les teaterons. Pourtant, vous chercherez en 
vain certains programmes qui jouissent d'une bonne reputation et qui se vendent surtout grace a la 
publicity et aux conaells des vendeurs qui ne peuvent pas connaitre tous les logiciels dlsponlbles. 
Nous avons c/asse a part les logiciels educatits et, par soucl d'honnefete, flOS propres prodults : les 
Hebdoglciel Software. 

Lea prlx sont, nous I 'esperons, les meilleurs du marche surtout pour les abonnes - anciens et notiveaux 
- qui benellclent en plus d'une remise de 10%. SI vous etes nombreux a nous sulvre dans cette expe- 
rience nous pourrons rapidement arriver a falre balsser les tarlls des tournisseurs pour attelndre 
I'objectit que nous nous sommes tlxe : ramener les prlx a une plus juste valeur I 





BON DE COMMANDS A DEC 
SHIFT EDTTIOHS 77 rue du 
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■/a page pedagogique 



• EN AVANT LA MUSIQUE, avec un micro logo musical. 
A. SAUSTIER. 

• UNE DIVISION ? pas si simple, meme avec un diviseur a un 
seul chiffre. J.C. LEGRAND. 



MICRO-LOGO SONORE 

PROGRAMME POUR Tl 99/4A EN BASICSIMPLE, SANS 

EXTENSION PAR ALAIN SAUSTIER 




RESTONS SIMPLES I 

Cette page educative etant 
reservee aux enseignants. 
I'equipe de Redaction ne 
portera aucun jugement de 
valeur quant a la qualite 
pedagogique des program- 
mes ou articles publies. Les 
critiques emanant d'ensei- 
gnants seront toujours !es 
bienvenues : elles seront 
publiees et transmises aux 
auteurs concernes. 

P. GLAJEAN 




Pour se reclamer de LOGO, un 
programme doit satisfaire au 
moins quatre conditions : 

1 - Permettre a I'utilisateur de 
creer des "objets" a I'aide d'un 
nombre reduit de "primitives" 
claires ; 

2 - Lui permettre de modifier 
ces objets a son gre ; 

3 - Lui permettre de les as- 
. sembler pour en creer d'au- 

tres ; 

4 - Lui renvoyerdes messages 
d'erreur assez explicites pour 
eviter les "bugs". 

Le programme que voici s'ef- 
force. dans les limit espermises 
par le materiel qui le supporte, 
de respecter ces conditions, le 
"monde" des objets concernes 
etant le domaine sonore et, 
accessoirement et rudimentai- 
rement, le domaine graphique. 
A i'aide de 4 p rimitives (Chante 
X. Silence X, Monte X, Baisse X) 
plus un positionnement d'origi- 
ne (Depart X), on peutconstrui- 
re des formes sonores dans un 
registre de 30 demi-tons, en 
programmant la duree et la 
hauteur par rapport a la note 
precedente de chaque son. 
Ainsi la sequence (Depart 10) 
(Chante 4) (Monte 2) (Chante 
4) (Monte 2) (Chante 4) (Baisse 
4) (Chante 4) donnera-t-elle la 
premiere phrase de "Frere Jac- 
ques". Si Ton baptise cet objet 
"FRERE", on pourra I'utiliser 
dans d'autres creations, grace 
a I'instruction "PAIS FRERE" : 
chaque programme cree, dans 
les limites precisees plus 
loin, peut etre appele en sous- 
programme grace a cette ins- 
truction "PAIS NNN". Enfin, la 
repetition d'une sequence 
^'instructions peut etre obte- 
nue a I'aide des instructions 
"REPETE X" et "REPETE jr qui 
I'encradrent ; par exemple, on 
obtiendra le debut de "Au clair 
de la lune" avec "CLAIR" : (De- 
part 8) (REPETE 3) (Chante 2) 
(REPETE 0) (M.2) (C.2) (M.2) 
(C.4) (B.2) (C.4) - Les nota- 
tions abregees pour les ins- 
tructions (initiale suivie du 
point) correspondent a la frap- 
pe au clavier, mais I'instruction 
complete apparait sur I'ecran - 
seule I'instruction "FAIS" doit 
etre tapee en toutes lettres ; 
Les limites d'utilisation de ces 
instructions sont dans I'emploi 
simultane de "FAIS NNN" et 
"REPETE" : 

1 - On ne peut inclure dans 
une boucle de repetition un 
sous-programme comportant 
lui-meme des repetitions ; 

2 - On ne peut inclure dans 
une meme boucle de repetition 
plusieurs sous-programmes 
successifs ; 

3 - Enoutre.onnepeututiliser 
qu'un niveau de sous-program- 
mes (ne pas appeler en sous- 
programme un objet compor- 
tant lui-mSme des sous-pro- 
grammes). 

Peu charge en instructions pro- 
pres au dialecte Tl BASIC, ce 
programme peut certainement 
etre adapts aisement sur tout 
micro-ordinateur bas de gam- 
me muni generateur de sons 
programmable. 

Les avantages de LOGO pour 
la formation intellectuelle peu- 
vent ainsi etre offerts au plus 
grand nombre. 

Les COMMANDES de ce pro- 
gramme sont les sulvantes : 

1 - POUR NNN qui ouvre le 
mode programmation, lequel 
sera quitte par I'instruction 
FIN. 

NNN estlenomdu programme; 
mieux vaut ne pas depasser 
8 signes. 

2 - JOUE NNN qui lance I'exe- 
cution du programme NNN : 
emissions sonores et visualisa- 
tion sommalre (hauteur, duree) 
d«s notes. 



3 - VOIR NNN, qui restitue le 
listing du programme, les li- 
gnes etant numerotees 
1.3,5.7... pourpermettrel'even- 
tuelle insertion de nouvelles 
instructions. Cette commande 
est aussi celle qui permet les 
modifications (a la fin du lista- 
ge. on demande s'il y a lieu d'en 
faire). 

4 - CATA(logue) qui donne la 
liste des programmes disponi- 
bles, I'adressede leu r premiere 
instruction, et le nombre de 
places disponibles en memoi- 
re-programme. 

Ces commandes se tapent en 
toutes lettres MAJUSCULES 
(CATALOGUE peut etre reduit a 



CATA). 

Par contre, repetons-le, les 
primitives s'introduisent en 
abrege : 

C. (Chante), S. (Silence). M. 
(Monte). B. (Baisse). R. (REPE- 
TE) ; seules FAIS NNN et FIN se 
tapent en toutes lettres. 
D'ailleurs. a chaque phrase de 
I'utilisatton, une fenetre rap- 
pelle la liste des messages 
compris. 

Les MESSAGES D'ERREUR 
que peut retourner le program- 
me sont : 

1 - "Je ne sais pas faire cela". 
message standard qui s'appli- 
que aux entrees erronees, aux 
programmes sortant des limi- 



tes exposees plus haut, etc. 
2- "Ca sort de mon registre" : 
trop haut ou trop bas. Erreur 
detectee des la programma- 
tion, sauf en sous-programme, 
ou elle apparait a I'execution. 

3 - "J'attends une valeur". si 
une primitive ne recoit pas un 
nombre ; 

4 - "Je ne connais pas NNN", si 
Ton appelle un sous-program- 
me non existant, ou le sous- 
programme en cours d'elabo- 
ration. 

5 - "Jerepetequoi,aujuste?si 
onaomisde fermerparR.Oune 
boucle de repetition. 
L'ANNULATION d'une liqne non 
encore validee s'obtient par 



ERASE (FCTN 3) qui est traitee 
comme une erreur, et fait re- 
tourner le message : 
6 - "D'accord, j'efface la li- 
gne*. 

Les MODIFICATIONS d'un pro- 
gramme NNN se font ainsi : 

a) VOIR NNN pour obtenir le 
listing numerote en impair de 
NNN; 

b) Indiquer, a la demande. le 
numero de la ligne concernee : 
- S'il s'agit de modifier ou an- 
nulerune ligne existante, taper 
son numero. puis "ENTER" di- 
rectement a la demande de 
nouvelle instruction pour I'an- 
nuler, ou cette nouvelle ins- 
truction pour la modifier ; 



- S'il s'agit d'une ligne a inse- 
rer, lui affecter le numero (pair) 
qui lui permettra de se placer 
entre deux instructions exis- 
tantes. 

On ne peut done faire qu'une 
modification a la fois ; il faut 
recommencer la procedure 
pour chaque modification. 
Voila I'essentiel du moded'em- 
ploi. 

II nefaut s'attendrea une quali- 
te musicale irreprochable : la 
lenteurdu BASIC et les detours 
du programme introduisent 
parfois des perturbations aux 
rythmes prevus... Par contre, 
les sons ont une bonne allure. 



lOO REM MICRD-LGGD SONORE 

110 REM AUTEUR A. SAUSTIER 

120 REM POUR Tl 99/4A BASIC SIMPLE 

j;o REM .*....».«......•..• 

140 CALL CLEAR 

':■■'■'■' ■■: If.!".', 

LOGO SONORE ■" 

160 PRINT TAB<5) ; "9":TAB(251 ; "a":TABC 

170 PRINT " Ce programme perrfiet, dar 

ISO FOR DEL- 1 TO 500 

190 NEXT DEL 

200 CALL CLEAR - 

no PRINT -COMMANDES disponibles : B ::: 



220 PRINT "<JOUE NNN> pour executer ! 

230 PRINT "<VOIR (JJNMiate un progi-oi 

240 PRINT " T.ipej cos commandes 

:" (ALPHA-LOCK BAISSE)"::; 

250 CALL CHARU2B,"OO000O0O00FEFE") 

260 CALL CHAR(I29,"00FEFE"> 

270 CALL CHAR(130,""> 

2B0 CALL C0LGR(13,2, 10) 

290 GOSUB 3430 

30© CALL CLEAR 

310 PRINT " INSTRUCTIONS reglant 1 aHAUTEUR du ■ 

note": "<Monte X>,<Bai5se XV 

320 PRINT "(X=no«bre de demi-tons) ":: "DUREE du son 

330 PRINT " (DUREE=X»0,5 s> " : : ~<Rep«ti t i on Z> au di 

340 PRINT " Introduction abregee : Exemple [ D. 

330 PRINT " <FAIS NNN> permet d'inclureun programme 

360 PRINT "<FIN> clot un programme.":: 

370 PRINT "<FCTN 3> •.■ff.ict- la ligne":: 

380 GOSUB 3430 

390 CALL CLEAR 

40O CALL SCREEN<5) 

410 FOR 1-1 TO 12 

420 CALL COLORtl, 12, I) 

430 NEXT I 

440 CALL HCHAR124, 1, 130,32) 

430 DIM PGC400) ,FC30> 

460 PRINT "Voici les sons utilisab 



■:P0UR NNN>, ou NNN est le nom d' 

!" : : "<CATA>loque des programmes ci 
■et permet de le corr i ger . " : : 

TOUTES LFTTRES MAJUFCULES puifl ■ 



■TChante X>,<Si 



I 30 PAR ; 



>INT<I/2> : 



470 CALL HCHAR<22,3,49) 

480 FOR 1-10 TO 39 

490 F<I-9)-I10«2"(I/12> 

300 CALL S0UND(300,F(I-9) ,: 

310 CALL HCHARI2B-I/2, 1-7,1 

320 NEXT I 

330 CALL HCHAR<10,3I,31> 

340 CALL HCHAR(10,32,4B) 

350 DATA Chante, Silence, Monte, Depart, REPETE, Baisse, FAIS 

560 FOR 1-1 TO 7 

370 READ B»(I) 

380 NEXT I 

390 NT-O 

6O0 SP-0 

610 REM ••»•»••••«••«••*••»• 

620 REM CMOIX COMMANDE 

630 GOSUB 3430 

640 CALL HCHARU, 1,32,544) 

630 CALL HCHARC18, 1, 130,224) 



670 NF-0 
680 NL-0 

690 MS«="POUR N, JOUE 
700 H-22 
710 GOSUB 4340 
720 GOSUB 1760 
730 IF <M0T«O"CATA"; 
CATALOGUE" 



■■CATAL06UE")THEN 860 



740 MS«-' 

730 M-l 

760 GOSUB 4340 

770 FOR I- J TO SP 

7B0 HS»-fl»(IlfcCHR»(321 &STR»(ND(I> ) 

790 H-3*I 

800 GOSUB 4340 

BIO NEXT I 

B20 MS*-STR»<INT(200-NT/2)1S:" PLACES LIBRES" 

B30 H-20 

B40 GOSUB 4340 

850 GOTO 620 

B60 IF SEG»(MDT*. 1 ,4) ■ "POUR" THEN 1240 

870 CALL HCHARI19. 1-, 130, 192) 

BSO SP-SP*1 

090 A»(SP)-SESt(M0r*,6,LEN(M0r«)-5) 

900 ND<SP>-NT+I 

910 NT-NTH 

920 MOT«-"D. " 



930 MS«-"D.X. C.X, S-X, M. X 


• B. 


940 H-21 




930 GOSUB 4340 




960 MS»-" R.X/R.O, FAIS N, 


FIN 


970 H-22 




980 GOSUB 4340 




f'O GOSUB 1760 






100O 
1O10 
1020 
1030 

1040 
1050 
1060 
1070 



1210 
1220 
1230 
1240 
1250 



1290 
1300 
1310 



IF ITOO THEN 1160 

IF SEG*(M0T*,1,41- 

GOSUB 3610 

IF (TT-O)-M <TT=I 1-INS-SP 

GOTO 1070 

ERR=1 

GOTO 970 

IN=7 
r X-NS 
i GOTO 1 I 60 

i IF M0T*O"FIN" THEN 1200 
• IF R-0 THEN 1 1140 
> ERR=6 
i GOTD. 1210 
I PG(NT)=999 
< GOTO 620 

■ PG(NT)=IN 

i PG(NT*1)»X 
i NT-NT +2 

■ GOTO 990 
I ERR-1 

GOSUB 2760 

GOTD 990 

REM ••••>••*•••>•**»••» 

REM EXECUTION 

IF (SEG*(MOT», 1,1>="J0UE' 

ERR-1 

GOSUB 2760 

NL-NL-1 

GOTO 620 

GOSUB 3610 

IF TT>0 It 

GOTO 620 

CALL HCH0RU9, 1, 130, 1 

COL-3 



FAIS" THEN : 




"■'VOIR-ITHEN 13Q0 



1330 



1330 ( 
1340 ( 
1350 1 
1360 IF IN-999 THEN 1720 

i37o ; 



G ( N) 



1380 
1390 
1400 
1410 
1420 
1430 



1470 
14B0 
1490 
1500 



1530 

1360 
1570 



>PG(I 



IF SEG»(MOT», 1,4)< ; "VOIR" THEN 14B0 
NL=INT( (N-ND<NS> »/2)*l 
IF IN<>7 THEN 1430 

BB»-STR*(NL»2-l)i,CHR»(43)I."FAIS"!.CHR»(32)! , .A»(Xl 
GOTO 144G 

BB«-STR« (NL-2- 1 ) Z.CHR* (43) tB» (IN) 6CHR* ( 32) t>8 TR1 ( I 
FOR G-l TO LEN(BBt) 

CALL HCHAR(2*NL-17-INT(NL/17),3*G*15»INT(NL/17). 
NEXT Q 
GOTO 16B0 

ON IN GOSUB 3130,3050,3230,3310, 3340, 32B0, 3410 
IF IN<>3 THEN 1640 
IF XOO THEN 1640 
FOR 1-1 TO NREP 
FOR J-NDR TO NFR STEP 2 
IN-PG(J) 
X-PG<J+t) 

IF IN0999 THEN 1610 
ERR-1 

GOSUB 2760 
J -NFR 
I -NREP 
GOTO 1620 
□N IN GOSUB 3130,3030,3230.3310.3340.3280,3410 



1620 NEXT J 

1630 NEXT I 

1640 IF NF^O 

1630 IF PG(N- 

1660 N-NF 



1700 
1710 
1720 
1730 



1820 

1830 
1840 
1B30 
1B60 

1B70 



I9SO 

1740 
1970 



N-N+-2 

IF ERR-O THEN 1330 

GOSUB 2760 

GOTO 620 

IF SEG»IMOT», 1,41<>"V0IR" THEN 620 

GOSUB 3740 

GOTO 620 

REM ••■••«•••••••.«..•• 

REM ENTREE COMMANDE OU INSTR. 

IN-0 

L-l*NL-t7«!NT (NL/17) 

C-3*16"INT(NL/17) 

IF MOT«-"D." THEN 2070 

MOT*-"" 

CALL HCHARIL,C,30) 

CALL KEV(0,K.E1 

CALL HCHAR(L,C,32) 

IF E< 1 THEN 1B20 

IF K-13 THEN 2410 

CALL MCHAR(L.C,K1 

CALL S0UND(100,-1.3) 

IF K<>7 THEN 1920 

ERR-2 

QOTO 2410 

MOT«-M0T»fcCMR«(Kl 

C-C*1*(C>31) 

IF K<>46 THEN 1820 

IF HOTtO-'R. • THEN 2010 

MOTt- - REPETE - 

IN-3 



12 





■ 


1 wo 


■ 


■ 






.■■■.1 1 i . rm -. 


■ 


■ ■ 


.. . 


■ 




■ 




no 




■ '. ■ rw N .-r. ■ 


. -,. 


rv.ti -- Dapfti t 




IN >4 


■ 


■ ■ 


- 


11 ! M (Mi N M40 


.'! 10 


Y-X 


■ 


[1 IXX»*<M m imi.m 2140 


1 




I |0 


BQTQ 2410 


. IS ■ 


II HOT* ■':,.■ [HEN 


?I60 


M(IT»-"Sl l«nce " 


: ■ ■ 


in r 


. 180 


BO! 24B0 


2190 


GOTO 2*10 


; -■•" < 


l( Milt* "M. " Ihl n ■■.'■'■■ 




MOT* -Merits " 


2220 


iti J 




BOSUB 2480 


2240 


II l RR ■■ iMili K> 


2230 


Y-Y*X 


?: bO 


ll v -l i Hi ll 2410 


2270 




10 


t RRi 4 


2290 


GOTO 2410 


2 100 


!h Mill* -!•. '■ THEN 2330 


23 % o 


1 RR - 1 


. ■-■" 


GOTO 2410 




M(ll*--"E',iiri5.e " 


■ (40 


1N-6 


.'-.:,<. 


CJOEiUP 2480 




ll ERR IHEN 2410 


2 :. .•' i 


Y-V-X 


_ BO 


IT ; 'HEN 2410 


2 v.. 




2400 


ERR-4 


2410 


NL-NL+1*34»(NL>34) 


2420 


IF ERR=0 THEN 2470 


2430 


GOSUB 2760 


2440 


IF NT-: >ND(5P>THEN 930 


2430 


SP«SP- 1 


2460 


GOTO 620 


2470 


RETURN 


2480 


REM «»«ENTREE VALEURS 


2490 


C-C-2 


2300 


FOR 1=1 TO LEN(NOT»> 


2310 


CALL HCNAR(L,C,ASC(SEG*<MOT 


2520 


C=C+1 


za : ( i 


NEXT I 


2340 


PA*-"" 


2550 


CALL HCHAR(L,C,30> 


2360 


CALL KEV(O.KE.ET) 


2570 


CALL HCHAR<L,C,37> 


2580 


IF ET< 1 THEN 2550 


2590 


IF KE07 THEN 2620 


2600 


ERR-2 


2610 


GOTD 27SO 


2620 


IF KE-13 THEN 2710 


2630 


IF <KE>43)»(KE':5R)THEN 2660 


2640 


ERR-5 


2630 


GOTO 2730 


2660 


PA*^PA«&CHR» (KE) 




CALL HCHAR(L,C,KE> 


2680 


CALL SOUNDdOO,-2,5> 


2690 


C=C*l 


2700 


GOTO 2550 


2710 


IF PA«<>"" THEN 2740 


2720 


ERR-5 


2730 


GOTO 2730 


27 40 


X=VALCPA») 


2750 


RETURN 


2760 





2770 


■ ro b 


■■■■ 


I At I HI IMF (24, 1 ■:•!. 




1 W 1 SOUNI ■ i' ■. M, 





CAI i HCNAI 124,1 *M, 


1 : 


r J f . t M 


. i- i 


LAI i HI MAI ■'..!,, ■■■ 


. ■: 1 ■ ■ 


DM ERR BQTO 2B4 i, . B 




MS l«"Je ni 




If] Ml 




n3»«"D'accQi ,i. - ■■■ 




GOTO . 950 


::■.- 






earn 2930 




NS»--C* aai i dc Hon 


■ ll 


Cora 2950 




MS*-"J'attendg <n,i. 




GOTO 2950 


2940 


mS»="Jp rapitte qua) 



3070 
3080 
3090 



! i a - 

3130 
3140 

7. 1 30 
3160 
3170 
31 BO 
3190 
3200 
32 1 
3220 
3230 
5240 
3230 
3260 
I270 
32B0 
7.290 
3300 
3310 
3320 
3330 
3340 
3330 
3360 
3370 
3380 
3390 
3400 
3410 
3420 
3430 
3440 
34SO 
3460 
3470 
3480 

3500 
3510 
3520 
3530 
3540 
3550 



BOSUB -i "■!■' 

FOR W-l 1CI 500 

NEXT W 

CALL HCHARd . --• I.',- MIT Ml . 

CALL HCHAFH22, . . l SO, 101 

NL-NL-1 

ERR-0 

RETURN 

REM ....... EXECUTION L'E: 

REM SILENCE 
CALL SOUNDtX»100,44Q, 01 
IF C0L+KO3 THEN 3100 
CALL HCHARI IB, 1 . 13'-,;'^4) 
COL-2 

CALL HCHAR(1B,CQL,130,X) 
CUL=COI.*I 
RETURN 
REM CHANTE 

IF !V/0)» (Y.311THEN 3170 
ERF(=4 
GOTO 3240 

CALL SOUND (K« lOO.FIYJ ,5) 
IF COL+XC33 THEN 3220 
CALL HCHARI18, 1, 130,224) 
CALL HCHARI 10,1, 32.2561 
CDL»2 

CALL HCHAR(24-INT(Y/2»,i:iJI 
CDL*COL*X 
RETURN 
REM MONT E 

Y«Y*X 
RETURN 
REM BAIGSE 
Y=Y-X 
RETURN 
REM DEPART 
Y=PG(N*1 ) 
RETURN 
REM REPETE 
IF X-0 THEN 3390 
NREP-X-1 
NDR-N+2 
GOTO 3400 
NFR-N-2 
RETURN 

REM FA IS NNN 
NF-N 
N-NDCX) 
RETURN 

REM *»-»»»MARCHE /ARRET 
MS«="Taper Id hirrt pou 
H-24 

GOSUB 4340 
FOR SD=1 TO 4 
CALL SOUNDt-200, 1047,51 
CALL S0UND(-200, 988,51 
CALL SOUNDI-200, 1047,51 
CALL S0UND!-2O0, 1 175,5) 
NEXT SD 
CALL HCHAR(24,32,30) 



NK1RUCT IONS 





A VOS MARQUES... 

Qui assist era a Is premiere journee formalion gratuite HEBOO- 
GICIEL-TEXAS, concernant I'utilisation pedagogique des cal- 
culate es TEXAS ?Alorsneperdez pas de temps ! (inscription 
au journal). Un conseil : ces journees concernent un groupe 
d'une vingtaine d'enseignants. n'importe ou en France 



7560 CALL t EY'.O.CL.ST) 

7570 CALL HCHAR !24, 32. 32) 

35B0 IF BT-0 THEN 3550 

3590 CALL HCHARI24, 1 , 130,32) 

36O0 RETURN 

3610 REM »•»•« RECHERCHE PGM 

3620 NSP*-SEG»(MaT*.6,LEN!M0T») -5) 



3640 
3650 
3660 



FOR 1=1 

IF nsp«<: 

NS-Z 

N=NDtZ) 



I Z) THEN 3690 



36S0 TT«1 



3720 
3730 
3740 



NEXT Z 

IF TT-1 THEN 3730 

ERR-3 

GDSUB 2760 

RETURN 

REM »»•-#-• CORRECTION 

MS*="MODIF. LIGNE No (0 ■ 



3760 

3770 GOSUB 4340 

37BO 

3790 



— NS 



D=ND(NS> 
CR*="" 
CH=0 

CALL, HCHAR(19.30»CH,30) 
CALL KEYIO.Q.S) 
CALL HCHAR(19,30+CH,32) 
IF S<1 THEN 3820 
IF 0-13 THEN 3940 
IF (Q>47)»(0':5B)THEN 3B90 
GOTO 3B20 
CR*=CR«!<CHR»!0) 
CALL HCHAR(19,30+CH,0) 
CH-CH* 1 

CALL S0UNDUOO.-2.5) 
GOTO 3B20 
NOVAL<CR*) 
IF NC-0 THEN 4330 
MS*="INSTRUCTION NOUVELLE (1 
1=21 



3950 
3960 
3970 

39B0 GOSUB 4340 



W90 


MSs-'ENTEfi direct «inul« 


4000 




4O10 


BOSUB -l 140 


■1 ■ O ■ 




.;.. ,. 


r*i_= i 


41 140 


BOSUB l 790 


4050 


!F 8EG«(M0T«, 1,4) -PAIS 


4060 


BOSUB S610 


40 "'■' 


X-MS 


4OB0 


IN=7 


4090 


!F HC.'2-!NT(Ni:/I')THEN 41 


4100 


H MO(*--"" THEN 4250 


4110 


PGlD+NC-1 >"IN 


■\ 1 20 


PGtD+NO-X 


4130 


GOTO 4330 


4 1 40 


REM *•• LIGNE AJOUTEE 




FOR ["NT TO D*NC STEP -1 


4160 


PB(I+2I-PG(I1 


4170 


NE ■/. T 1 


4180 


NT-NT»2 


4190 


FOR I-P+l TO SP 


4200 


MDI!)«ND( I) +2 


4210 


NEXT I 


4220 


PG!D»NC) "IN 


4230 


PG<D*I1CH l-X 


4240 


GOTO 4330 


42SO 


REM ••• LIGNE EFFACEE 


4260 


FOR I-D+NC+2 TO NT 


4270 


P6(I-2)-P6(I) 


4280 


NFXT I 


4290 


NT^rir-2 


.; ■;■ .. . 


FOR [=P*1 TO DF' 


4310 


HDtllaNDt I) -2 


4320 


NEXT [ 


■i ;. y. 


RETURN 



i REM ....... AFFICH MESSAeeS 

i FOR G=l TO LEHIMSf • 

i CALL HCHAR<H,2+S,ASC(SEG*(MS*,G,1) 



C'est une excellente initiative 
que vous avez prise quant a 
I'ouverture de voire journal 
aux programmes pedagogi- 
ques. 

Depuis bientot deux ansje me 
suis engage dans la vote de la 
pedagogie assistee par ordi- 
nateur. Cette voie demande 
beaucoup de travail, j'ai une 
multitude d'idees que je ne 
peux pas toujours mettre 
en aeuvre taute de temps et 
parfois de competences in- 
formatiques. Neanmoins, je 
dispose actuellement d'une 
bonne serie de programmes 
en mathematiques, grammai- 
re, conjugaison. 

Ce que j'essaie de rechercher 
ce sont des programmes qui 
permettent d'abord I'appren- 
tissage plutot que le controle. 
Je dispose en classe d'un VIC 
20 16Ketj'aipersonnellement 
un C 64 que j'utilise a /'occa- 
sion en classe. 
Je vous joins a tout hasard le 
dernier programme de ma 
production concernant le sui- 
vi d'une division (le diviseur 
n 'a qu 'un chitfre). II est encore 
loin d'Stre un modele de tra- 
vail informatique mais il fonc- 
tionne normalement : pour 
moi c'est I'important. 





43 PRIHTCHR«C147) 
5£i PRIHTTHBC5>"- 

51 PRINTTflBC5>"fc E3SR1 SUP. LH ] 

52 II III! III! HiiliWIIWillllfl 
60 FfjRI = lT026ee-NEXT 
100 Fi=INT<0+ie#ftHD(l>; 
110 H*=STR«CR> 
120 R1=HSC<MIMi;h*,2,1J> 
130 B-INT<8+10*RND<1>) 
146 B*"STR*<B> 
15© Bl-flSC<MB*(B*,2, 1>) 
160 C=INT<0*10*RHDU>> 
178 CJ=SrRt(C> 
1S0 Cl=fiSC<M.IB*<CS,2.1>;> 
136 D=1MT<1+3*PNBC1>> 
208 &*=3TR*<IQ 
210 Bl=fiSC(MIBKBt-2.1>> 
220 E=IHT<;i+5 1 *RND<l)) 
230 E»=STR*CE) 
240 El=ftSCfniBt(Et,2>lJJ 

3S0 PRIHTCHR*tl47> 

310 P0KE124A,B1 P0KEi242,i:i P0KE1244-B1 

328 P0KE1246.R1 

338 POKE 1256. 1 17 P0KE1298, 1 17; POKE 1336. 1 l?:pOKE1370, 1 17 :POKE1410, 1 17 

340 P0KE1231. HI P0KE1232.111 

350 P0KE1252.-E1 

400 P0KE214,1S PRIMTPRIin-RTTEMTIOH fill MQHBRE BE CHIFFRES" 

410 FORI=1TO2000;NEXT 

415 IFB>=ETHENK=1 OrjTO430 

420 JFD<ETHEHK=2 GOTO5S0 

438 P0KE2J4.6 PRINT PRIHTTflB<26J; IHPUTGI 

431 P0KE1338-117 

4 35 PE=n-<Ql+E^ ■ !FRE>-ETHENbOT0458 

440 IF(Q1*E>--: = DTHEN3OTO470 

450 IFC01»E»BTH£HP0KE214, 13: PRINT; PRINT" 

460 P0KE214, 18 PRINT; PRINT" IMPOSSIBLE... ";RORI=1TO1000: NEXT ;Q0T0438 

470 P0KE214, IS PRINT: PRINT" 

4S0 P0KE214, 13 : PRINT INPUT "DONNE LE RESTE";R 

4S5 IFPORETHEN470 

430 R*=STR*(R>:Rl^ASC(I1IBt<R*.2-l>J:pOKE1320-Rl 

435 GOToeee 

586 Tl=VRL/B*+C-*> 

5-18-P0K£2t4T6PPIrlT ■ PRIHTTflB<26> IHPUT&t- 

511-POKE1330.117 

520 RE=Tl-f01*E) : IFPE>=ETHEH510 

530 IF<Q1«EK-T1THEN560 

540 IP<Q1<C»TITHEHP0KE214j 1S:PRINTPRIHT" 

536 P0KE214, IS: PRINT- PRINT" II1P0SS I BLE.." : FORI = 1T01 080 HEXTXOTOSia 

5€6 P0KE214f lSPRINT^PRINT" 

570 P0KE214. 18 PRINT INPUT "DONNE LE RESTEER 

575 IFRORETHEN560 

530 Rf=STR*(R> Rl=fiSC.:niBf<RS,2,l))P0KE1322,Rl 

530 GOTO700 

680 POKE 1322- CI T2=VfiL*R*+C*) 

610 IFT2>=ETHEN630 

r.'iCj, F0KE214. 13 PRINT:PRINT" 

635 P0KE214, 18 ; PRINT PRINT"EN ".T2-" C0I1BIEN DE FOIS ".E, INPUTQ2 

636 Q2$«STR*<Q2j rj2X=flSC<:HID*<G2*.2» t >> 

637 P0KE1334.Q2/C 

640 RE=T2-(02*E> 

641 IFRE>-=ETHEN650 

642 IF<Q2#E»T2THEN650 
645 IF<O2#EK=72THEN6?0 

£50 P0KE214.13PRINT PRINT" " 

655 P0K.E214. 13 PRINT PRINT" IMPOSSIBLE. .." FORI- 1 TO1080 : NEXT GOTOt.30 

670 P0t-E214. 13 PRINT PRINT" 

680 P0KE214, 18 ; PRINT INPUT"D0MNE LE R£ST£";R 

635 IFROPETHEN670 

690 R*-STR«<P;:R1=HSL'<MID*<R*.2,1>) : PGKE1402.R1 

635 OOT0886 

700 POKE 1 324, Bl T2=VfiL'.RJ*B* ) 

13 



728 P0KE214. 13PRINT:pRINT" 

725 P0KE214, 18:PRINT:PRINT"EH ",T2;" C0MB1EN BE FOIS ■;£; : INFUTQ2 

736 02J=STR1''Q2.- Di:-:=fr:.cnil Dt-'02*.-2. 1 > ) 

737 POKE 1 334, 0.2* 
746 RE=T2-<rj2*E) 

741 1FRE>=ETHEN750 

742 IF<Q2*E»T2THEH?58 

743 IF(Q2*E>-.>T2THEH770 
758 P0KE214, IS PRINT: PRINT" 

755 P0KE214, 18 = PRINT :PRINT" IMPOSSIBLE..." FOR1=1TO1068 : NEXT GOTO720 

770 P0KE214. 18:pRINTPRINT" 

780 P0KE214,18:pRINTINPUT"B0NNE LE"RESTE",R 

785 IFRORETHEN770 

796 Rf=STR*CR):Rl=fiSC(MIB*(Rt,2,l))POKE1404.Rl 

795 GOTO900 

300 POKE1404.B1 T3=VflLvRJ+Bt> 

318 IFT3>=ETHEN336 

820 REM 

330 PUIE214.13 PPINT^PRINT" 

835 P0KE214,13 PRINT PRINT"EN 'M3-" COMBIEN DE FOIS ";E. INPUT03 

836 03t=STRi'03> ■ Ci3::=mSL'.MI Dl -'u3t,2, 1>) 

837 POKE 1336, 03* 
840 RE=T3-<Q3*EJ 
341 IFRE>=ETHEN850 
842 IF<Q3*E)>T3THEN856 

845 IF<Q3*EK=T3THEN8?0 . ' 

k50 P0KE214, 18:PRINTPRINT" 

853 P0KE214, 13 PRINT: PR INT" IMPOSSIBLE..." FORI = 1TO100O NEXT GOTO830 
870 P0KE214. 18PRINT:PRIHT" 

338 P0KE214.18PRINT: INPUT"DONNE LE RE3TE".R 
385 IFROPETHENS78 

836 R»=3TR*(R> Pl=PSCT1IB*<R*.2,l)):P0KEl484,ftl 
835 GOTO1000 

980 POKE1406.R1 :T3=VfiL<R**fi*> 
■?20 P0KE214, 13 PRINT PRINT" 

■•^ P0KE214.13PRINT PRINT-EN ".T3." COMBIEN DE FOIS ",E; INPUT03 
336 03J=3TPJ' 07 :• Q3:-: = RSC ■ M I Ht ■ Wit . 2 , 1 > ) 
'937 POKE 1336. QT/. 

340 RE=T3-<Q3*E) 

341 IFRE>=ETHEN950 

342 IF(Q3*£>>T3THEN956 
943 IF<G3*EK=T3THEN9?0 
=■50 P0KE214. 18PRINT PRINT" 
355 P0KE214.18 PRINT PRINT" IMPOSSIBLE. . 
970 PC* E214. 13 ■ PRINT PRINT" 

986 P0KE214, 13 PRINT : INPUT "IiOHNE LE REST£",R 
385 IFRORETHOW70 

990 Rt=STRI'.R;'-Rl=HSC>niB*<Rf.2,I)) P0KE1486.R1 
335 GOTO1506 

I860 P0KE1486.fil T4=VfiL'RJ*i=H • 
1810 REN 
1020 REM 

1030 P01 E214, 18 PRINT PRINT" 
1035 P0KE214/18 PRINT PRINT "EN "■'• 
ISM ...ii-=rpi'i...i ■ 04*;=h-': ■ una ■ ■:■■«* ^- in 
ie37 P0KE13 :::."■!■- 
1846 RE»T4-(Q4*6? 
1041 IFPE: =ETHEN1050 
li-t4> IF' Q4*E '. r4THEN1038 
1845 IP<Q4*E ■ ;«T4THENie70 
1850 POt E214, li? PRINT PRINT" 
1M5 P0KE2I4/18 PRIN1 PRINT'IMPOSSIBLE... 
1.,,-M [-01E214.13 IMII! IPINI" 
lL-iy0 pniE^M.i:-: PRINi INPUT-DONNE LE RESTEER 
1085 IFR :.RF.THi-.U10,'M 
1098 i-i : . i> i ■ P ■ Rl«flSC<MID*<ft*,2.1» P0KE1M€-R1 

1500 l-ML>M".-n PRINT PRINT-V0ULE2 VOUS UN WTRI OPERRTION 

1510 OETX* IF;:i=""THENl510 
1520 IfX*=-"0"TH£N CLP OCHni"" 
1536 IFX*-"N"THEN PRINT"C '" 

l^-.iW LNH 



1 FOPI=11OI000 NEXT GOTO920 



COHSIEN BE FOIS 



'■FOR1*1T010 



INPUTQ4 



, n!...i GOTOI030 



ESI H-illMi PO 



lOURD hui. 



SAUVETAGE ^ 99/** &&$& 



Un jeu de I'espace... encore un ! Oui mais la plus 
question de "descendre" qui que ce soit, mais plu- 
tot de sauver ses congeneres, prisonniers d'une 
planete inconnue {a la suite d'un accident semble- 
t-il, mais I'histoire ne le dit pas). 

Philippe PAIR 



Moded'emploi : 

Guidez votre vaisseau jaune (celui qui est au centre, les aulres n'etant 

que ceux restants) sur la base au sol (couleur magenta) avec la manet- 

tel. 

Actionnez vos retrofusees (avec le bouton tir) suffisamment t6t pour 

que I'atterrissage soit doux (sinon... Boum !!!). 

Remontezleprisonnieraiabasederavitaillementfattention.cettefois- 

ci vos retrofusees vous font accelerer). 

Simple ?... Oui, au debut, mais c'est aussi sans compter avec les divers 

objets qui vont graviterde plus en plus nombreux et de plus en plus vite 

autour de la planete. 

Cramponnez-vous a votre manette et en avant pour le SAUVETAGE. 




I REC0=-135O 



VARIABLE A CHANGER EN FONCTION DU RECORD BAT 



290 CALL CLEAR :: CALL SCREEN { U ) 
30O CALL CHARI64, "3C4299A1 Al 99423C" > 
3IO DISPLAY AT(10,6):"S A U V E T A G E" 
22,3):"a PHILIPPE PAIR 1983" 



320 ' 

330 REM«*»****»**»*»«""»»* 

340 REM* DEFINITION CARACT.** 

3SO REM-.*******-************ 

340 ! 

370 ' »*"*OVNI RAYE*»*»» 

380 DATA 92, O3O0OFO03F0OFF0OFF003F0O0F0003O0C000FO00FC00FF00FFO0FC00F000C 

390 ! ••••ROCHERS DU SOL**** 

400 DATA 96,OOO008ia3C3C7EFFO3O7OFOF3F7EFFFF0081C3C7E7F7FFFF00O0B0C0E0FCFEFF 
410 • ••••*. PLANETE****** 

420 DATA 100,0000030FlFiF3E3C39321421478810A00508DlE284284C9C3C7CF8FBFOC 
430 •••BASE D'ATTERRISSAGE" 
440 DATA 104.FFFFFFFFFFFFFFFF 
430 ' • •••"*HEDU5E««»«»* 

460 DATA 10B,OF1939773E7F381F120A!212112I4284F0989CEE7CFE1CFB3050505048442020 

470 ■ • •"••BONSHOMMES****** 

480 DATA 112,0000000000000 1 0000000 101 00000000003B3B003BFE903B(.CC682B3, 116,000000 

0000000000060 1 OOOOOOOOOOOOOOOOOEOEOO 1 CF F 1 D6C4BC8OS0B0C 

490 • • •••"VAISSEAU****** 

500 DATA )2O,01O3060ClF3IO3O701Ci6 1677F6666C0a0C06O30FBBCC0E0BQB386E6FE6666O3 

510 ' *»*"*EXPLDSIONS***»*» 

520 DATA 124, 1O3OE0F000OOO0QQO00000Q00000000000OO00000O0000OOO 

530 ■ ••••••SATELLITE**"*** 

540 DATA 128,B85O20508B05O307070305B85O2050B81I0AO40Al 1 AOCOEOEOCOAOl 10A040A1 1 

550 ! ******ASTEROIDE»»»»** 

360 DATA 132,O31FlF3F7F7FFFFF7F3F3F3F0FlFO703B0C0B0F6FFFFFFFCFCFBEOF0E0F0£080 

570 r-BASE DE RAVI TAILEMENT* 

5BO DATA 136.39FF67E67C3A19199CFFE6673E3C9B9B 

390 • ***SauCOUPE VOLANTE*** 

600 DATA 140, 40201O080403060C0E187CFE7D1FO6030408102O40C06O3070D83E7FBEF860C 

61 FOR 1-1 JO 13-:i READ CAR, CAR* fi -CALL-CWARfCAfr, CAR*) : : NEXT I 

620 ' 

630 REM«****"*""*«"»»*»»* 

640 REM****" MUS10UE ***•*»• 

630 REM"""*****"»»"«" 



660 



, 16 



I DATA 196,2,220.4,196,2, 173,4, 147,8, 163,8, 196,2,220,4, 196,2. 173,4, 147.8,800, 1 
700 • 

710 REM"**""*"*********" 
720 REM** INITIALISATION •••• 
730 REM" PRESENTATION "•• 
740 REM*""""***"""*** 
7SO • 

760 RANDOM I IE 

770 CALL DELSPRITE(ALL): : RESTORE 670 
780 CALL MAGNIFY(3):i CALL 5CREENI2):: CALL CLEAR 
790 CALL COL0R(9, 13, 1, 10, 14, 1,11, IO, I, 12, 11,1, 14,6, 1) 
800 ON ERROR 20B0 

810 FOR 1-1 TO B :: CALL COLOR! I , 15, 1 ) : : NEXT I 

820 FOR 1-1 TO 29 STEP 4 II CALL HCHAR (24, I , 96) : : CALL HCHAR (24, 1*1 , 97) : : CALL H 
CHAR(24, I+2.9B) : : CALL HCHAR (24, 1+3, 99H ; NEXT I 
B30 DISPLAY AT 1 1 , 1 ) I "RECORD" J RECO 

B40 CALL HCHAR(24, 13, 104,4) :; CALL HCHAR U , I 6, 13< 
B50 DISPLAY AT ( 10. 2) : "DESCENDEZ DDUCEMENT SUR LA 
860 CALL 5PRITE(»1, 120, 11,7, 121,6,0) 
870 FOR 1-1 TO 15 II READ N,D it CALL SOUNDIDMO' 
BBO CALL MOTI0N(»l,O,O) 

890 DISPLAY ATMO.ll:" RECUPERET UN DES VOTRES 
E" 

900 CALL SPRITEI*2. 116, IO, 174,250,0, 12) 
910 FOR 1-1 TO II :: CALL PATTERN(»2. 1 12) I t CALL 
•2,116):: CALL SOUND <1 00, -fl, 0> I I NEXT 1 
920 CALL D£LSPRITE<«2> 

930 DISPLAY ATIIO.M:" REMONTEZ ET ACCOSTEZ": 
94m CALL MOTIONdtl ,-5.0) 

930 (UP. I-l TO 2" :: READ N.D :: CALL SOUND<D*B'; 
960 CALL MQTION(»1,0,0> 
970 DISPLAY AT (6, 1) J-EVIDEMMENT DES OBSTACLES 



N,2,N*2,3,N*4,6) : : NEXT I 

t :" PRISONNIERS DE LA PLANET 



SOUND uoo,-e,o 

i " DOUCEMEN 



CALL PATTERN! 



VOTRE BASE" 
,4):i NEXT I 

FUR Er A MFSUREDU 



990 DISPLAY AT (to, I J : "GVITLZ LES AVEC LA MANETTE I " 

•>■!•• DISPLAY AM 1 1, I > ! ,, C()N1R0LCZ VOTRE VITESSE AVECLE BOUTON DE TIR" 

I 000 DISPLAY AT(1S,1)|" VAISSEAUX SUPPLEMENT IRES A **200«"300*"1< 

ii .-,...,,,,. map. '■ vilii'F uasi in: JAvrrr.iLi.Lrii.nr :,\ -.in .( :m>i r ■■ 



■ I ['.I I ■■■ ..I I .. 2) : "APPUYER SUR 1 
'Mil! DISPLAY AT<22,l)lt GOTO 10 
CALI DELSPR] IE (all > 
CALL CLEAR :: SCO-" :: REU-0 n 



KlurON ROUGE" 



1040 BOSUB 25Tu 



I 06< ■ 



HJ-" f-rene: bien le vaisslan 



AIS-3 : : HDR2-128 



AIN.ATTERRISSEZ DOUCEMENT 



0. 1200. J22'_<, 12 



O. 1280. 1300, 1 ;2'J. 1340. 136 



GOTO 13O0 
I PEU" : : GOTO 



500 

L'ESPACE.ATTENT; 



CETTE SOUCUUPE, DANGER" 
VOUS POSER DES PROBLEHES 
: CHEfllN LE PLUS COURT " 



"DUR,DUR,IL ACCELERE !!" 

CONCENTREZ VOUS 

4) :: L-17 : : C-4 

TO 13O0 



GOTO 1300 

CELA DEVIEN 



. FORT" 



GOTO 150O 
GOTO 1300 



GOT< 



GOTO 
1300 



S DIFFICILE 



500 



1 UN PLUS DIFFICII 



HOR-0 



TOU" 



THEN 1020 ELSE IF TOU- 



'70 REM 

IOeO REM* I -EIlll MALISATIDN »• 
1090 REM ...*••••• 

1100 ' 

III" REU-REU+1 

t 1L" IF RED 19 THEN 1490 

1130 ON IVEU GOTO 1300, I140, I 160, 

0, 1 SBO/1400, 1 -I :'■:', 1440, 1460, 14B0 

1140 DIFF=3 :: CALL SPRITE '. "3. 1 28, 4, 105. I , ' 

1150 ! i:. :: C'8 :: M»="AUCUNE DIFFICULTE" 

[160 CALL SPRITE (»4, 100. 12. 57. 236.0. -15) 

1170 L-H i: C-l j: M*-" ON COMPLIOUE I 

1IB0 DIFF-4 :: CALL SPRITE <*S, 10B, I 4, 1 21 , 

1190 L-16 :: C-l :: M*-" JE VDUS PRESENTS La'mEDUSE 

:: GOTO 1300 

1200 DIPF-3 :: CALL SPRITE <*6. 140, 7, 4 1 , 236, 0, -23) 

1210 L-6 :: C-l :: M«=" ATTENTION AUX ANTENNES DE 

GOTO 1500 
1220 CALL SPRITEIH7, 92, 12,73,256,0,-30) 
1230 L-10 :: C-l :: M»=" CELUI CI N'A PAS F 

:: GOTO 1300 
1240 CALL SPRITEOB, 132,6, B9, 1,0,31) 

12SO L=12 :: C-l :: M*»" LA LIGNE DROITE N'EST PLUS 
; : GOTO 1500 
1260 D1FF-2 :: CALL SPRI TE ("9. 100, 9, 153. 1 ,0, 12) 

1270 L-21 :: C-2 :: M»-"CELUI CI EST TRES MAL PLACE" :: GOTO 1300 
I2B0 CALL SPRlTEltU0,92. 13, 137, 1.0, 19) 

1290 L-1B :: C-5 :: M«="TRES BIEN.TENEZ BON > " : : GOTO 13O0 
1300 DIFF=I :: CALL SPRITE ( H 1 1 , 12B, 5. 23. 256, O, -24) 

1310 L=ll :: C=l :: M*-" FAITES ATTENTION AU DEPART DE VOTRE BASE . ON VOUS GUETTE 
" : : GOTO 1300 
1320 CALL MOTIONIDIO, 0,-401 
1330 L"19 : : C=4 :: Mi 
1340 CALL MOTIQNrita.O 
1350 L-ll : : C= 1 :: M' 
" :: GOTO 1500 

1360 CALL MOTIONHtS.0.44):: L- 
1370 M»»"ATTENTION A LA MEDUSE 
1380 CALL M0TI0NI46, 0,-44) 

1390 L=M :; C-l :: M«="V0US ETES VRAIMENT 
1400 CALL M0TIDN(»4,0,48) 

1410 L-10 :: C-l :: M»="LA SOUCOUPE VOUS VEUT DU MAL" : 
1420 CALL MOTI0N(»3,O,-4B) : : L-12 :: C=l 

1430 M*=" EPUISEREZ VDUS TDUTES MES RUSES 

1440 CALL MOTIONfftll, 0,-33) 

1430 L-10 ;: C= 1 :: M«-"VOUS AVEZ LES NERFS SOLIDES 1 " :: 
1460 CALL M0TI0N(»7, 0,-60) 

1470 L-I5 .-: C-l :: M«-"MOI JE COMMENCE A CRAOUER !!" :: GOTO 1500 
I4B0 CALL MOTION(»9,0,60) 

1490 L-14 :: C-l :j M«="PREVENEZ MON AUTEUR, IL VOUS EN 
: DISPLAY AT (23, I ) : "VOUS ETES TROS FORT POUR MOI" 

1500 DISPLAY AT(L,C):M« :: DISPLAY AT(1,6):" SAUVETAGE N."iREU 
1510 FOR 1-1 TO 29 STEP 4 :i CALL HCHAR (24, I , 96) : : CALL HCHAR (24, I +1 ,97) : : 
HCHAR(24, 1+2,98) : : CALL HCHAR (24, I +3. 99) : : NEXT I 
1520 CALL HCHARI24, INT <25»RND<-2) , 104.DIFF) 
1330 CALL SPRITE(#1, 120, 1 1 , VER2, H0R2) : : VER-3 
I540 ! 

1S30 REM*»»**»»**»«»*»*****» 
1360 REM»»*»» DESCENTE •»*•»» 
1570 REM-»«»».»»*»********** 
1380 ' 
1390 ACT=0 

I6O0 CALL SOUND<100,llO,3,22O,3):! CALL SOUND (200, 220, 3, 440, 5: 
1610 CALL KEY(3,T0U,ET):: IF ET-O THEN 1620 ELSE 
14 OR T0U»1 OR TOU- 13 THEN 710 
1620 CALL KEY(1,T0U,ET):: IF ET-0 THEN 1610 
1630 CALL HCHARU,8,32.23):: DISPLAY AT(L,C):RPT« 
1640 CALL JOYSTI 1.H0R1 , I) : : CALL KEY ( 1 , VER1 . ET 
1650 HOR-H0R+HOR1 :i IF ET-0 THEN 
4,30,4E4,30,2500,30,-a,6) 

1660 CALL M0TIDN(#1,VER,H0R):: CALL COINC (ALL, KA) : : IF KA THEN 2080 
1670 CALL P0SITI0N(«1,VER2,H0R2) : : IF VER2<-167 THEN 1640 
16B0 CALL M0TI0N(#1,0,0):: CALL GCHAR (24, [H0R2+1 1 ) /B, K) : : 
VER2 .-200 THEN 20S0 

1690 CALL S0UNDI500, 500, 6, 600, 6,700,6):; CALL SOUND (200. 400, 9, 300, 
1700 SC0-SC0+10«REU :: DISPLAY AT ( 1 , 1 ) SI ZE (6! : SCO 
1710 • 

1720 REM. •#**••**« *••**-»•**• 
1730 REM**** SAUVETAGE ****** 
1740 REM*»*»*»*»»*»**»*»"»** 

1760 CALL SPRITE(»2, 116, 10, 174,256,0, 14) 

1770 VER-0 :: HOR-0 

17B0 CALL PATTERN(tt2, 1 12): : CALL CO 

SOUND(100,-8,0) : : CALL PATTERN ( *2, 1 16) 
1790 COLL COINC(ttl,*2,lB,K>!: IF K-0 THEN CALL SOUND 
1800 CALL DELSFRITE(»2) ■ 

1810 CALL S0UND(2OO.2E3,4,6E3,4.8E3,4) 
1B20 I-lNT(22»RND+8! : : CALL HCHARd.I.l 
1830 ! 

1B40 REM»»*«**»»«**»*******« 
1850 REM*»«»* REMONTE *•#••*» 
1860 REM«»*»***"«*»****»»«*» 
1870 ■ 
1BB0 ACT— 1 

1B90 CALL KEY(I,TOU,ET):: IF ET-0 THEN 1B90 
1900 CALL JOYSTII.HORI.IIU CALL KEY ( 1 , TOU.ET ) 
1910 H0R-H0R+H0R1 :: IF ET-0 THEN VER-- 5 ELSE VER=VE 
1920 CALL MUTIONdtl.VER.HOR) : : CALL CO INC ( ALL. KA> : : 
1930 CALL SOUND(-190,4E4,30,4E4,30,-VER-300,30,-8.6) 
1940 CALL P0SITI0N(#I,VER2,H0R2).: IF VER2.-12 AND VER2T1B4 THEN 
1930 CALL M0TI0N<#l,0,O);: CALL GCHAR ( 1 . 1H0R2+1 I ) 78. K) : r "= 
) >I4 THEN 2080 
I960 IF VER2>13 THEN VER2-3 

1970 CALL SDUND<100, 110.5.220,5):: CALL SOUND (2O0, 220,5. 
4E4.30):: CALL SOUND 1 100, 220, 3) : : CALL SOUND < 100, 330, 5) 
1980 CALL SOUND(200,277,3) 
1990 SC0-SC0+10«R£U :: DISPLAY 
2000 f 

2010 REM***"*****"***"*'"* 
2020 REM*"**** GAGNE •*••••** 

2O50 REM*••••••*»»••"•• ## ••* 

2030 IF (SC0>199 AND VAIG-O) OR (5C0>499 AND VAIG-1 1 OR ISC0>999 AND 

999 AND VAIG3>0R(SC0>4999 AND VAIG-4)THEN GOSUB 2440 

2060 GOTO 1070 

2070 ! 

2080 REM*»«***"*"***" , »"" 

2090 REM"" EXPLOSION """ 

2100 REM"***"*"*""*"""* 

2110 ' 

2120 CALL SniJND(230O,-7,0> 

2130 IF ACT THEN CALL SPRI TE <«2. 1 1 2, 10, VER2, H0R2, . -. 1 ) 

2140 CALL DELSPRITEIMI 

2130 FOR 1-12 TO 13 :i CALL SCREENCI-: 

• RND -30) . INK 1O0.RND-50) ) : : NEXT I 

^160 IF VER2/73 THEN CALL DELSPR1IE(«: 

2170 FOR 1-12 TO 15 t> CALL flCRE6N(9( 

ND-50),INT(100*RND-50)):: CALL SCREEN 



l-VER+2 ELSE VER-VER-2 



CALL SOUND (-200, 4E 



Hl,"2, 



IF K<104 OR VERMO OR 
200,9) 



O THEN 1BO0 ELSE CALL 
.0) :: GOTO 1780 



. HCHAR ( 1. 



KA THEN 20BO 

N 100 

136 DR-VER.ABSIHOR 

CALL SOUNDMOO, 



)SIZEI5) :SCO 



i CALL SPRITE<«I. 123,2, 
CALL SPRITE!*!. 124.7. VLR^ 



R2.H0R2, [NTUOO 

NT(100"R 

Suite page 16 



MEMORY 



Si vous avez la memoire courte, ce jeu est fait pour vous 
Cela vous permettra (peut-etre ?) de ne pas oublier 
d'acheter HE8DOGICIEL chaque semaine ! 

D. STOBINSKY 

Mode d'emploi : 

Lejeu sejoue seul ou a. deux, de preference avec lesmanettes de jeu 

Pour jouer avec ie clavier on modifiera le programme (voir plus loin) 

Ce jeu consiste a marierdes cartes. 30 cartes, 15 couples. On amenele 

curseursurle point qui setrouve sous la carte que I'on a choisit avecle 

bouton rouge des manetles on decouvre la carte. Puis une deuxieme 

Si ellessontsemblableson marque 1 point, on jouealternativement Un 

symbole bianc et rouge a la gauche du nom des joueurs indique celui 

qui joue. Quand 1 joueur a 8 points (sur 15) son adversaire peut aban- 

donner. Pour 1 joueur lejeu constste a decouvrir les 15 couples dans le 

minimum d'essais. Pour jouer avec le clavier modifier comme suit - 

Suppnmer les lignes 1059, 1060, 1070 et 1080 ecrire ■ 

1050; call key(Q.K,R) 

l055it(R=O)+( (K+1<>1)*(K02)*(K<>3)*(K<>5)*{K<>18) ) 

then1050 

1060 : if K=18 then 1150 

1061 : on K+1 goto 1062,10.1066.1070.10 1074 

1062 :ifL+1>22 then 1050 

1063 :X=0 

1 064 : y=-4 
1065; goto 1090 

1 066: if C-K6 then 1050 

1067:X=-4 

1068 :y=0 

i069: goto 1090 

! 070 : if C+1>27 then 1050 

1071 : X=4 

1072: Y=0 

1073: goto 1090 

1074: if L-K1 then 1050 

-075:X=0 

1 076 : y=4 

Le joueur 1 joue avec les touches - S, t E. ; X, D -, et Q pour "FEU" 

le joueur 2 joue avec les touches - J, 1 1, ; M, K -, et Y pour "FEU". 



10 CALL VCHARll, 1. ::■. ■ i, L) • 

:■• PRINT rAB(10>|"i1 E M O ft V-'::TAB( 

REM • 

?2 REM INITIALISATION 

23 REM 

30 RANDOMIZE 




B7CC682C67C38" . 

0O00387CFEFEFEFE" 



lF3F7F","OO0006O 
3F1F0FO703O1", "F 

CO808080B0S0E" , " 



40 Din B(IS) 

50 FOP I^=V3 TO 159 
60' READ B« 
"'■ Call CHAR! I.B'H 
BO NEXT i 

90 DATA "L 000001818". "O00OO0181 

B-."7F7F7F7F3FSF1F" 
lOO DATA "EOFOFOFOFOEOC", "OOOOIC SE7F 7F7I 7F 

CFBF.-..EOCOB" 

110 DATA "O0OOO3O70F0FQF07", "OOOOCOEOFOFOFOE", "030 10IO1 0101 

00010307" 

120 DATA "OOB080S0B0BOB0B", "0F1F7F01 7F3F1F", "B0B080BOFEFCF8" "O0000003OF 1F3FFF" 

"OOO0O0COF0F8FCFF" 

130 DATA "FF3FIFOF03", "FFFCFBFOC" . "O0001F3F73737F7F" . "0O00FBFCCECEFEFE" , "7F77707 

ftf IF". "FEEEOEFEFCFS" 

140 DATA "'. >!■.. >:< -■:■-.'- C03". "OOOOeOCOCOCOCOCO", "O307OFIFO3O3O7", "COEOFOFOCOCOE" , 

■ ■ '7F5C5C5C" 

130 DATA "0OOOO0OOe0eOBOB","7F7F7F435B58", "80FEFEC2DA18", "0OO1O3O701 1 1317F" , "008 

•'FEaC8880EOCOa , '."000103070FlF3F7F", "00EOC0E0FOF8FCFE" , 

00000101010 t 0101", "OOOOBOSOaOBOBOS" , "03O707O7O70FO701" 

", "OOOOCOCOCOEOFOB", "01010107070707", "8OS0B0E0E0E0E" . " 

1B1F","00 



160 DATA "7F31 1 10107O3O1" 
"7F3F1FOF070301" 

170 DATA "FEFCF8F0E0CO8" , 
. "COEOEOEOEOFOEOB" 
1B0 DATA "0000O3O303070F0. 
■001O3070F1F3F73" 

190 DATA "0080C0E0F0F8FCCE", "333F3F3E3E3E", "CCFCFC7C7C7C" , "00001 Fl 



OOFBFB 1 B 1 f 

200 DATA "lF010101010107 , ',"Faa080BOBOBOEO","FOFOFOFOOFOFOFOF", "FOFOFOFOOFOFOFOF" 

. "FOFOFOFOOFOFOFOF" 

210 DATA ■'FOFOFOFOOFOFOFOF", ■■FF808083B7B6S6B" . "FF0101C1EI6161C1 " , "81B1B180B1 8180 

FF", "BiaiBlOlBlBlC'lFF" 

-20 CALL C0L0ft(9,9, 16) 

230 CALL COLOR (10, 13,8) 

340 CALL COLOR ( 1 1, 12,9) 

250 CALL COLOR 1 12. 2, 3) 

:.'60 CALL C0L0R(13,5. 16) 

270 CALL C0L0ftd4, 16.7) 

230 CALL COLOR (15. 16.2) 

290 CALL CDLOR!16, 16,7) 

700 PRINT "TAPEZ <S> POUR LE GENERIOUE" :: "UNE AUTRE TOUCHE POUR JOUER":: 

301 REM ■»*****»« ■ »»*<••».*•••<..*.*.*•.*...*...... *.*... 

302 REM GENERIOUE 

303 REM •»•••»- a. ...... .......*....... *........... ..... 

310 CALL KEY(0,K,R) 

320 IF R-0 THEN 310 

330 CALL VCHARd . 1 .32.76B) 

340 IF <KO71)«<K<>I03)THEN 560 

750 PRINT :: : TAB (4) ; "RETOURNEZ UNE CARTE": :: TAB (4 ) I "PUIS UNE SECONDE. " : : : 

360 PRINT TAB(4)J"5I ELLES SONT SEMBLABLES. " : : : TAB 14 ) I "C* EST GAGNE.":::: 

370 FOR 1=1 TO 500 

730 NEXT I 

390 PRINT "VOICI LES CARTES A DECOUVRI R" ::::::::::::::::::::: : 

400 7=96 

410 FOR H=4 TO 20 STEP 4 

120 FOR 1-6 TO 26 STEP 4 

4 70 CALL HCHAR!H, I,2> 

440 CALL HCHAR(H, 1*1,7+1) 

450 CALL HCHAR(H+! , I.Z+2) 

460 CALL HCHARCH+l, I+l.Z+3) 

•170 Z-Z + 4 

4BO IF /■: 156 THEN SOO 

490 Z-96 

300 NEXT I 

510 NEXT H 

320 PRINT rAB(4) | "<ENTER3 POUR CONTINUES" 

330 call KEY<0,K,R) 

540 IF R-0 THEN 530 

330 CALL VCHARd, 1,32.768) 



TV 



-99/ 4 ^ 



' REM CHOI/ DU N0M6RE DE JOUEURS 
REM 

i INPUT "1 OU 2 JOUEURS? ":N 

■ IT IN' 11 + 1N '..') THEN 560 
I ON N GOTO 990,620 

' fi*(2)-"ES'Jfl[S: " 

■ r.'- I 

■ ODTO /■■■ 

• 0-2 

■ I RINT : : 

■ i in ! i to :■ 

■ l ft INI "IINM DU NO"! 1 : : 
i INPUT A*! I) 

• It CASC(A«CDJ vi I - 'i .i-.ii'M ' 1 I I 10? THEN POO 

i i I- in I II-- At PHA i OCI PMITION BAS9I "I »"- 9 l.ETTRES I 
. HCTfl 650 

■ il'llil : ! 

■ in -i i 

i CAU VCMAfti i.i. . . "■!'. 



■ . : : ■ . 



■ 
.... 

: rem 

■ ■■ 



i 
■ 

■ ■ ■ 

. H I ■ I 
■ II . rHEN ■ 

.,.,.., . . }■ 
E.IO NEX1 J 

:o ii! ■ i i 
' ■■ ',,11 . ■ . ■ 



. FU M AFF l( HABE DU JEU 
RET 

B i" i OR H -^ ro :.! STEP -i 



i ■• Ti II I "J ■ ■ .... 

ItllM 



. I . . . ■.■ 



■ ■ ■ 



. to : 



GTEF' . 



. ■: : ■ 

B70 I ALL HCMAF IH, 1 + 1,13 | 
! HCHAR<H« I, I, il;B) 
.: : HCHAR<H«1, 1*1, 159) 
■■■■■• r.,,i i HCHAF !H+ .-. . 
". ■ NEXT I 
920 NEXT H 

930 PRINT : TABI4) s "ABANDON"! TAB (16 
940 L-21 
730 I : 4 

970 CALL HCHAR(L,C,95) 

971 REM 

972 REM LE JEU 

?73 REM 

9B0 ON B*N GOTO 1030.1010,10,990 

"70 D"l 

1000 Gorcj 1020 

1010 0-2 

1020 CALL HCHARlO'2+19. 16. liii 

1070 D-0 

1040 CALL SriUND'. K""'.440.5I 

1050 CALL J0VSI !0, <.V) 

1060 CALL I EV(Q,I ,R1 

1070 !F I (R-0)*(X-0>« (Y»0) ) • (L-V/4 

1OB0 IF l -IB THEN ! 150 

1090 CALL HCHAR(L.C.P) 

1100 CALL BCHARIL-Y/4,C*X/4,P1 

l 1 10 L-L-Y/4 

l 120 C=C+X/4 

1130 CALL HCHAR(L,C,95> 

1 140 GOTO 1050 

1150 IF (P=94)+(P=93>THEN HBO 

1160 CALL B0UND(20O, 110,3) 

1 170 GOTO 1050 

1180 ON P-92 GOTO 1190,1260 

11B1 REM ...ABANDON*" 

1190 ON N GOTO 1760,1200 

1200 ON O GOTO 1210,1220 

1210 IF TI21--.B THEN 1160 ELSE 1230 

1220 IF rilK8 THEN 1160 

1230 CALL VCHARd, 1.32,7661 

1240 PRINT A*(D);" ABANDON":::: 

1250 GOTO 1780 

1260 GN(0)=L-2 

1270 CN(0)=C 

12B0 IF (6N<0)-GN(1) ) • ICN (O) -CN ( 1 ) 1 

12B1 REM »««0N DECOUVRE LES 

1290 CALL HCHAR(L-2,C,M( (L+D/4, (C- 

1300 CALL HCHAR(L-2,C*1, Ml (L+D/4, 

1310 CALL HCHARIL-1,C,M( (L+l ) /4, (C- 

1320 CALL HCHAR(L-l.C+I,M((L+l>/4. 

1330 CALL GCHAR<L-2.C,F(0>) 

1340 0=0+1 

: 002 THEN 1050 



IA*(lJrTAB<4)i"l":TAB(16)(A»<2) 



L (■/•) li-x-'/J ;..■ - ■L + //4 27 » THEN 1030 



B/s<S\C 



THEN 


1 160 




2 CARTES 


2) /4 




C-2) 




2)/4 


+2) 


C-2> 


4) +3) 



1360 t 



+ 1 



DIFFERENTES.i 



(I) , 156) 



SEMBLABLES" 



1370 ON N GOTO 13S0.141O 

1380 FOR 1=1 TO LEN!SrR«IU)) 

1390 CALL HCHAR(23,LEN(A»(2) ) ♦ 1 7+1 , ASC (5EG* (STR* (U) , I, 1 

1400 NEXT [ 

1410 IF FtOCFinTHEN 1380 

1411 REM +.LES 2 CARTES 
1420 CALL SOUND < 100, 17-1.5: 
1430 CALL SOUNDOOO, 123,5: 
1440 CALL SOUND! 100, 117,5: 
1450 CALL SOUNDdOO, I 10,5: 
1460 FOR 1=1 TO 250 
1470 NEXT I 
14B0 FOR 1=0 TO 1 
1490 CALL HCHARCSNd 
1500 CALL HCHARIGNCI 

1510 CALL HCHAR(GNd)+I,CN(I> , I5B) 
1520 CALL HCHAR(GNd ) + l,CN(I)+l, 15' 
1530 GN(I)-0 
1540 CN(I)=0 
1550 NEXT 1 
1560 CALL HCHAR!0«2+19, 16,32) 

1570 ON N GOTO 1030,980 

1571 REM ..LES 2 CARTES 
1580 CALL SDUND(100,523,5) 
1590 CALL SOUNDdOO, 659, 5) 
1600 CALL SOUND! 100,764,5) 
1610 CALL SOUNDdOO, 659,5) 
1620 FOR 1-0 TO I 

1630 CALL HCHARIGNd) .CN(I>,32,2) 
1640 CALL HCHAR(GN(I) +1.CM1 I) ,32,2: 
1650 NEXT I 

1660 CALL HCHARIGN(0)+2.CN(0> ,32) 
1670 P=32 

1680 G=G+1 

1681 REM ......................... 

1682 REM COMPTE ET AFFICHA- 

1683 REM .••»........... ••• 

1690 ON N GOTO 1740,1700 

1700 T!D)=T(Q) • I 

1710 FOR IM TO LEM(STftt(T(0) ) I 

1720 CALL HCHAR(O»2+19,LEN(0*(0) > *1 

1730 NEXT I 

1740 IF G=15 THEN 1760 

1750 ON N»0 GOTO 1O30, 990. 10. 1010 

1751 REM ..•............••.-...••i 

152 REM FIN DE PART IE 

1753 REM • •■•■ 

1760 CALL VCHARd, 1 . 32. 7681 

1770 ON N GOTO 1BB0, I 7B0 

1780 IF KD/I (2) THEN 1B20 

1790 PA(2)-FA(2>+1 

1800 B=l 

1810 UDTCJ IB40 

1B20 FA(l >=PA( DM 

1B30 0-2 

1040 FOR 1-1 mi ; 

IBSO PRIN1 AD(IMTAB(ll>(T(I>lTAB(l 



S \WIPV-E 



-GE DES POINTS 



+ 1 ,ASC(SEG*(STR»(T (IJ) ) . I. 1 ) 



HINTS") iTABtll) I PA I [) I TAB (13) I "I AR1 H S"i 



ISA'. 


Nl X 1 1 


IH/" 


BOTH 1M'"' 


IBBO 


PR1N1 01-MARIABES l -h ,, :li! "CDIii *. 


IB90 


ii. INI "1 ni uiii ■ (O/Nl " 


1900 


CAU iCV'.i ,R) 


1 9 1 <• 


[| R-0 nil-N 1900 


1920 


ii ii ,■■/.. HI mil I960 


1930 


CAI i. VI It 1,1, 52, ''-in 


1940 


1 |. INI "FIN" 


1930 


1 Mil 


1960 


1 1. mi : i ■■ (If 111 B JOU i"' 1 ' ' (0/N) " 


1970 


Mi'. 1 1 III IS 




.. ,. i. o 




'040 (.nl l l l '■■".> -i 1 




..■,.. n R-0 "il N . 04l 




1040 II ll '91 HI 111 


nil n /.'■> 


2070 LA' 1 1 ■'■ 




. ,,.,.-,■., 




1090 i .1 1 r i < '■',., 
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TIERCE 



Mettez-vous a plusieurs et laissez vous emporter 
par la fi6vre (de cheval) du jeu ! Attention, ne pa- 
riez pas de trop grosses sommes... et bonne galo- 
pade ! 

Michel FORTIN 

NB : Le mode d'emploi est dans le programme. N'oubliez pas 
d'appuyer sur la barre d'espace lorsque le message "faites vos 
jeux" apparait 



2 CLS:CLEAR200:FORX=1 TO 63 

3 READ DA:READ A: PRINT3DA. CHR*< 01 i :NEXTX 
5 FOR X = 333 TO 342: PRINT3X. CHR* i. 176) : :NEX 
7 FOR X = 39£ TO 409: PRINT3X. CHR* i 19 ! ) : :NEX 
10 A*(l >=CHRH12S)-CHR*a52>*CHR*i 1 EG > :fl* 
= CHR*i. 12S>*CHR*(152>.CHR*<150> 

15 A=RND<8> :PRINT3403. Ai 

17 F0RX=464 TO 46E:PRINT3X.CHft*< 131): :NEX 
IS DATA141. 191. 77, 191. SS, 131. 169. 131. 154, 
31. 171. 191. 115. 191. 179. 191. 74. 131. 75. 131. 
. 179. IBS. 131. 109. 131. 110. 131, 116.179. 117, 




TfcS 



80 



=CHR*I 128>*CHR*i !S3>+CHRK 1E£) :A*I3) 



i. 191. 1E3. 
.79. 131. S 
1. 179.92. 



91. 102. 191. IB7, 1 
I. 131. 100. 179. 101 
79,33. 131. 1£0, 17 



20 DATA161. 176, 1£2. 176. 155. 176, 15E, 17E, 157, 176. 172. 17S. 173. 176. 174. 176, 1E4. 131, 
65. 140, 166. 164 



: DftTfi282. 160. 283, 1E0. 284. 180. 2SS. 144. 343. 1B8. 344. : 
4E. 143.349. 142, 350, 1B0. 393. 188,334. 159.395. 131.461. : 
62. 191.463. 159.469, 191.470. 159.471. 143.472. 191.473. : 



1,345. 131. 
.457. 175. 
.474. 144. 



346, 159. 347. 143,3 
458. 133.460. 1E7. 4 
52*2. 160, 523. 154,5 



.526. 172.529. 144.53: 



533, 135.538. 1E2. 539. 149.587. 1 



:F*(C> : 



;R(X) 



AGE JO ■ 



:G*< C) ; 



24 DAT0129, 526. 131.527. 14 

St, 396. 130.597. 129 

26 H*»"F flITES VOS JEU X" :FORX=27T01 STEP- I 

28 ftl*=MID*(R*. X. 1) :Al*=CHR*a28)*Al* 

30 FOR Z = 77B TO 77S+X : PRI NT3Z. 01 *: 

32 FORT"! TO I0:NEXTT:NEXTZ :NEXTX 

33 R1*=INKEY* 

35 R2*=INKEVt:IF R2*=""THEN35 
40 GOSUB1220 
50 TG=INT(RND<B)*5)+1 
60 F0RC=1T0E 
70 G0SUB141B 
80 NEXTC 

90 IF TG=1THENTG*="TRES SEC" 
100 IF TG=2THENTG*= , '5EC" 
110 IFTG=3TH£NTG*=" NORMAL" 
120 IF TG=4THENTG*="L0URD" 
130 IF TG=5THENTG*=-TRES LOURD" 
140 GOTO230 

150 PRINTTABC40VTERRAIN " ; TO* 
155 PRINTSTRING*(63.45) 

160 PRINT"CHEVHUX *COTTE CH. * AGE CH. * TERR PREF* VAL JO 

170 PRINTSTRING*(G3.45> 
180 F0RC=1T08 

190 PRINT"CHEVAL NO-;C;"* "5E*(C: 

H*(C)S" * "iI*(C> I" *■ 

210 NEXTC 

215 PRINTSTRING*f£3.45) 
220 RETURN 
230 FDR X=l TO N 

240 CL£:GOSUB150:PRINT;N*(X) ;" VOUS 
250 IF R( X) <=0THENMAC X) =0: MEK X>=0: M( 
INE.PAS DE TIERCE":INPUTZ*:GGTO350 

250 PRINT3B9E, "DUEL EST VOTRE TIERCE :"; 

270 GO5UB3000:MA<X)=Z 

2S0 GOSUB3000:M8(X)=Z 

290 GOSUB3B80:MC(X)=Z 

295 IF ER=1 THEN ER=0: PRINT3896. "VOUS VOUS ETES TROMPES 

RU= 1 TO 1 000 : NEXTU : GOTO2E0 

330 PRINTa9E0.-'COri8IEN JOUEZ-VOUS >"lUNPUTZ* 

337 S(X)=VAL(Z*> 

333 IF St.XX-9 THEN GOTO260 

340 IF S(X)> <RCX)+.01>THENPRINT3B32.CHR*f7) ;"VDUS NE POSSEDEZ DUE" : R<X> ;" I 

Z=l TO1B00:NEXTZ:PRINT3S96. " " : GOTO2B0 

350 NEXTX 

360 F0RX=1 TO 3: PRINTCHRK7) :NEXTX 

370 FORX=I TOB:BO:)=0:A<X>=0:NEXTX 

400 FORX=1TO£:PP<X)=P(X> :NEXTX 

410 TT=0:FORX = 1TOE:TT=TT*PP(X> : NEXTX 

420 F0RX=1 TO B:PP(X)=TT/PP(X) JNEXTX 

430 CLS 

440 PRINTTABC20) "COTES I" 

450 FDRX=lTO8:PRINT-N«";X:":";INTfPPi;X)*0.5> !"/l *":NEXTX 

460 INPUTZ* 

470 CLS:FORX=1T08:B(X)=12B*(X-1) : PRINTSBf X) , A*<3) : : PRINTSBCX) +61 . X T :NEXTX 

4£0 FORX=0TO127:FORY=4TO46STEP£:SET(X, Y) =NEXTY: NEXTX 

490 R*=INKEY«: IFR*=""THEN49B 

500 FDRX=1TD£ 

520 fi=INT<(RND<95)/100) + (;P(X) /IBB) ) 

525 IF A = I THEN P0( X)=PO( X) +1 : IFPO TX) =4THENP0(X) =1 

S30 B(X)=B{X)*INT<ft):IFB(X)=61 + a2£*fX-l))THEN600 

540 PRINT3B!/), n«i"POf.X) ); 

550 NEXTX 

355 OUT 255.2:OUT255,0 

560 GOT 0500 

E00 PRINT3400."ARRIVEE"; 

635 R*=INKEY*:IFR*=""THEN605 

£10 F0RX=>lTOS:B<X>=Brx)-C 128»'(X-1) >s NEXTX 




710 F0RL=1TGB: 

720 FORL^l TOB 

730 NEXTUBCOd 

74B GOTQ720 

750 'GOTO7S0 *.+**■*,***•. 

760 CLS:PRINT"PREMIER LE NUMERO 

. .. "iO<2) :PRINT"TROISIEME LE NUMERO. 
78B PT=PP(0ri))*<PP(CX2))-l)*(PP<0<3 
790 FGRX=1 TO N 
800 HA=0:HB=0:HC=0:HD=0 



0:NEXTL:UUa)=0:UUr2)=B:UUf3)=0:U=l 
>UU(W) THEN UUt!W)=B'L) :0(W)=L 
W+l :IFW=4THEN750 



Ofl)=0--O(2)' 



:0<3>: 



■';0(1 >:PRINT"SECOND LE NUMERO.. 



-2) :PS=PT/6 



B30 [F ME. i ' ■ :--!.j< ■> THENHfl-HO. 1 (HB-HB* I 

£40 IF MCfX)-OC JJ 1HENHI1-HA-1 :HP ■■ HH- 1 

E5B IF MA- * . -O' .". i IHf.JJHD-1 IHB"HB* 1 

BEB IF rm(*)-0(3)THENHD"ltHB-HB*l 

£70 IF Mp.i * i -0. 1 ' rH€NHfi Hftl I 

BEB IF ME<i X)=0' ~) IH£rJHf<^H6-.l 

B9B !FMCtX>-0< 1 iTHENHi. : I 

900 IFHC Xt=D'2'THENHB=Ht.»l 

U!0 IF Hfi = :-TnEMCi X> = < S' / '/.'■ "PT 

320 IFHB>3 HMD HR03 THEH n< /■ == ' '■-,• <,/•>■ w-.t,, i . 

330 IFHC=! THErJG' X)-(S(X)/3>*PP(0(1)>+O<X) 

'-340 IFH0"lTH£NOa l><G'l)/J)V(PPrwa> )*. 375) >Gi K) 

950 0<Xt-G(X)-S(X»iH(X>»R<X>+OCX)iR<X>"IMT('R(X>)*l 

9EB G(X) = INT i 'G' X) •• I00»,5' / 1 00 

970 NEXTX 

9E0 INPUTZ* 

990 CLS 

1000 PRINT"TIERCEi"tO(l) I" - ":0'2>:" - -;0(3): 

101B PRINT'^TIEPCE DQNS L' ORDRE POUR 1 F =";INTiPT*l 

DR&RE = " : INTi PS* 100-. S) / 100: PRINT"LE WMERO " -. ' I i : - 

PI*. 5</100 

1020 PRlNT-LE NUMERO" :0i 1 i :" PLOCE=" : INI < ( ppi o< 1 ) •• 

MER0":0'2);" PLACE -"HNT<(PPC0<2>>». 373»*1BB*0,S)/ 

LACE =";INT' (PPfO'3) i*.375)tl00tB.S)/|B0 

1030 PRINT" 

1040 FOR X-l TDNiCL' X)=R' X> :NEXTX 

1050 M=-l 

106B F0RY=1T0N 

1070 F0RX=1TDN 

1080 IFCL(X>>M THENM=CL^X>:L< Y)=X 

1B9B NEXTX 

I IBB ft— itCLCLCY)) — IB 

ma NEXTY 

112B F0RX=1T0N 

1130 IF N)14 AND X) 14 THEN INPUTZ* 

1 140 PRINT-Ntt" ;Xs :PRINTTAB<E) : PR INT ; : PR I NT TAB < E/ 

1 150 printn*i:l'.x)); 

1160 if g(l'x)))=0 thenprint" gagne" ; : g0t01 130 

1170 print" perd": 

11S0 PR!NTG'L<X)>:" ET A";RiLiX)) 

1 190 NEXTX 

1200 INPUTZ*:PRINT"VOULEZ-VOUS FRIRE UNE NOUVELLE COURSE ' 

F R*~"N" THEN CLSJPRINTAU REVDIR ET MERCI . . . " : END 

1210 CL5:G0T05B 

122B PRINT3777, " VOULEZ-VOUS JOUER AUX COURSES ?- 

INPUT"SI OUI.COMBIEN ETES-VOUS DE PARIEURS ' 



OU N) :-': :INPUTR*:I 



:DIHS<N):DIMG(N.7i:DIMMA«N):DIM MB-NUDIM MCiN) 



RINT"OUEL EST LE NOM DU" ' 



EME JOUEUR "::INPUTN*fX> 



RINT-CHAOUE JDUEUR POSSEDE AU DE 



:T(C)=Y(3) :H(C)=Yf4) :0(C)= 



1240 DIM N*IN) iDIMRtr 

1250 DIM LCN) :DIM CL'N) 

12EB PRINT:FOR X=l TON=F 

I NT: NEXTX 

1270 FOR X=l TO N 

1230 Rf X)=10BB:NEXTX 

1290 CLS 

1300 PRINT"MAINTENANT NOUS ALLONS JOUER" : PRINT: P 

PART 1000 FRANCS" 

1320 PRINT"IL VA DEVOIR LES PLACER SELON LES " : PRI NT"CHANCES DE CHAQUE CHEVAL EN 

TENANT COMPTE A CHAOUE COURSE :": PRINT" DE LA VALEUR DU CHEVAL" 
1330 PRINT: PRINT"-DE L' AGE DU CHEVAL" 
1.340 PRINT: PRINT"-DE L' AVANTAGE DU TERRAIN" 
1350 PRINT:PRINT"-DE LA VALEUR DU JOCKEY" 
1360 PRINT:PRINT"-DE L' AGE DU JOCKEY" 
1370 PRINT: PRINT"ETES-VOUS PRETS A JOUER">"; 
1380 INPUT Z*:RETURN 
1410 FOR X=l T05 
1420 YtX)=INT(RND<B)*5)+l 

I NEXTX 
1440 E(C)=Y(l):K<:C)=Y(l>:F(C)=Yi:2) :A<C)*Y<2) :D(C)=Y<3 
Y(4):I(C>=Y(5):VCC)=Y(5) 

1450 K(.C)=K(C)+£:A(C)=A(C)*5:Q(C)=0(C)*3:V<C)=V(C)*2 
1460 IF E(C)=5 THEN E*<C)= ,, TB" 
1470 IF E(C)=4 THEN E*<C)="B0" 
14B0 IF E(.C)=3 THEN E*(C) = "f10" 
1490 IF EtC)=2 THEN E*(C)="MA" 
1500 IF EfC)=l THEN E*(C)="TM" 
1510 DN TG GOTO 156B, 1620.1680, 1740, 1800 
15E0 IFT(C)=5 THEN TtC)=20: G*CC)=-TS" 
1570 IF T(C)=4 THENTCC)*1E:G*CC)«"SE" 
15E0 IF T(C)=3 THEN T(C) =B:G*(C) ^"N0" 
1590 IF T<C)=2 THEN TtC>=4: G*(C) = - 1 0" 
1EB0 IF T(C)=1 THEN T(C)=4: G*(C)»"TL" 
1610 GOTO 1B50 

1E20 IF T(C)=5 THEN T(C)=16: G*CC) ="TS" 
163B IF T(C)=4 THEN T(C)b2B:G»<C)="SE" 
1640 IF TfC)=3 THEN T(C) =1£: G*(C) ="N0" 
1£50 IF T(C)=2 THEN T(C) =8:G*(C) =-L0" 
1660 IF T(C)=1 THEN TtC)=B= G* CO ="TL" 
1570 G0T01B5B 

1680 IF T(C)=5 THEN T(C)=12:G»CC)="TS" 
1690 IF T(C>=4 THEN TTC) = 1 2: GKC) ="SE" 
1700 IF T<C)=3 THEN T(C) =20 : G*f C) ="N0" 
1710 IF TCC)"2 THEN T(C) = 12: G*(C)="LO" 
1720 IF T(C)=1 THEN T(C) =1 2: G*(C)""TL" 
1730 G0TO185B 

1740 IF T(C)=5 THEN T(C)=8i G*CC) -" TS" 
1750 IF T(C)=4 THEN T(C)=8: G*(C)="SE" 
17EB IF T<C)=3 THENT(C)=12:G*(C)="N0" 
1770 IF T(C)=2 THEN T(C)=20: G*f C) ="L0" 
17B0 IF TCO-1 THEN T(C)"=16:G*(C) = "TL" 
1790 GOTOIB50 
1B00 IF TCC)=: 
1810 IF TCC)=, 
1328 IF T<C)=: 
1B3B IF TCC)=2 THEN T(C 
=1 THEN T(C 



THEN T(C>=4:G*lC)=• , TS , • 
THEN T(C)=4:G*<C)="SE" 
THEN T<C)=4:G*(C)""N0" 
^16:G*CC) = "lo' , 
2B!G*l;C) = , •TL• , 



I G(X 



E20 



mac; 



)THENHA=1 :HB=l:HC=l:HD=l 



1850 IF H(C)=5 THEN I 

1860 IF H(C)=4 THEN H*(C)="BO" 

1870 IF H(C)=3 THEN H«C C) ="M0" 

1SBB IF H<C)=2 THEN H»CC> ="MR" 

1890 IF H(C)=1 THEN H»'X)="TM" 

190B IF FfC)"5 THEN F»i:C) = "3A" 

191B IF FCC)=4 THEN F*CC)="4A" 

1920 IF FCC)"-3 THEN F*<C) = "2A" 

1930 IFFi:C)=2 THEN F*<C)b"5A" 

1940 IF F(C)=1 THEN F*CC)="10" 

1950 IF I(C)=5 THEN ItCC) ="3BA" 

I96B IF IfC)=4 THEN I*tC)="35A" 

1970 IF I(C)=3 THEN I»CC)U"25A" 

198B IF IfC)=2 THEN I*CC>="40A" 

1990 IF I(C)=I THEN I»CC) ="20A" 

2000 PIC)=KiCH-AfC)+T(C)*C(C)+V(C) 

2010 RETURN 

-.000 Z* = ""iZ* = INKEY»: IF Z* = ""THEN3000 

3010 IF VALCZ*) (1 DR VAL'Z*))B THEN ER= 1 : 

3020 PRINTZ*!"-"! :Z=VALfZ»): RETURN 




Suite de la page 14 

Nl'*" 7 basic etenoo 

2 I BO CALL DELSPR]IE(*2) 

2190 FOR 1-12 TO 13 :: CALL DELSPRI TE ! tt I) : : NEXT I 

FOR 1-0 TO 25 :: CALL SCREEN (101 «« CALL B0UND(30O-(l#llJ, -6,1)1 1 call BCREE 

N(2)tl NEXT 1 

Z2I0 ON EFtRQR 20B0 

,i,ii;^VAIS-l :: VER2-8 :: H0RZ=12B 
■'AIS*VAIO-0 THEN 22B0 
2240 IF KA THEN M*-" ESSAYEZ ENCORE" ELSE IF VII THEN M*»" ODJECTIF 
MANOUE" ELSE tt*-" V0U9 ETES UN VRAI CASSE COU CONTROLEZ VOTRE VITESSE M!" 
2230 L-12 i ! C-2 
■2260 GOSUB 2330 it GOTO 1500 
2270 ! 

200 if m. ...••. ■. ■■>■■<■■••••• 

2290 rem"««» une autre 

II M 

2310 ! 

■.'■-■' tjIGPLAV Al Cl.VJ : "PRISONNIERS GAUVESi" 

2330 I--. 

2340 II R£U>12 THEN DIHPLAY AT 1 1 , 3) i "prprprprprprprprprprprpr " :: DISPLAY AT ( I *■! 
,3) 1 "q»qoqmq»q«f,«q«qBq»q» qm[1 »" , E REU-REU-12 I: I-I + 2 !! GOTO 2310 



"pr" 



rjifici. n 



2350 FOR 1=1 TO <REU-1>»2 STEP 2 i: DISPLAY AT ( 

"qs" :: NEXT 1 

2360 CALL SPRITE(*2, 11&.9, 172.B1 

2370 DISPLAY AT(M,l>i" MAIS !L EN REGTE ENCORE !!!" 

2380 CALL PATTERN(tt2, 1 12) : : DISPLAY ATI22,2):"AU SECOURS I" 

2390 DISPLAY ft T ( 1 (,, Z) I "VOULEZ VOUS RECOMMENCER ?" :i DISPLAY AT<22,2) 

2100 CALL KEY(3,TaU,ET>t) CALL KEY ( 1 , TDU1 , ET 1 > I : CALL PATTERN ( *2, 1 I bi : : D 

ATU6.3):: IF TOU< >79 AND TOU< ->79 AND T0UIO18 THEN 23BO 

2410 IF T0U-7B THEN CALL CLEAR i: END 

2420 CALL DELBPRITB (ALL) ■ 1 GOTO L030 

2430 ! 

2440 REM. 

1450 REM** VA1SSEAU GAGNE •"« 

24 AO REM •••••• 

2470 • 

24H0 DISPLAY AT ( 10, 81 : "FEL IC I TAT ION '<•" n DISPLAY ATCi:j.4) I "VOUS liAGNE^ 

SSEAU" 

2490 REBTORE 670 

230O VA1G-VAIGH 

23IO FOR 1-1 TO 34 :j READ N, D :: CALL SOUND C-200, N"2. 2, N»3, 21 I J NEXT I 

2320 ! 

2330 REM • AFTICH. VAISHEAUX RLblANTB 

2340 REM" 

2330 ' 

2360 DISPLAY AT(2. 1 ) I I I I I t I I I 

2370 FOR 1-2 TO VA1G+VA1S II DISPLAY AT C I , 1 ) t "m " i "y( " n NEXT I 

2360 DISPLAY AT (10, 7)1 1 DISPLAY ATI13.3) 

2390 RETURN 
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SOUS-MARIN 



Exercez votre memoire ! Dans ce jeu il vous faudra 
localiser cinq sous-marins dans un volume de 10 x 
;0 x 10. Vous disposez d'un stock de fuel, plus ou 
moins important suivant le niveau choisi. Ce fuel 
est consomme au cours de vos emplacements 
Mefiez-vous de la panne ! Si vous effectuez cinq 
essais infructueux, le sous-marin se deplace... 

Alain DUBUS 

Mode d'emploi : 

Faites demarrer le jeu en mode DEF par SHIFT - 

Entrez le niveau de jeu. puis les coordonnees oil vous voulez 

sauler par longitude, latitude et prolondeur. Bonne chasse ! 



5: REM 

IO:T=<9711+T+IO 
«97iK=INT (T 
/EJ>:T=T-E3K 

15: IT T=OTHEN 1 


_0:T=.E3.'T>~5:V 
=T-INT T:W= 
INT AES <RV+ 
1>:RETURN 

C6:"="BEEP 3: 
PAUSE "***** 
* SOUS-MARIN 



INPUT > DUEL 
NIVEAU ?<1> 

ijUi.2' "til 

510: if d=1pause 
" c.est shu; 

RISQUE.. ":E 

=90 
515: IF B=2PttUSE 

" SOYEZ PRUD 

ENT ":E 

=60 
520: IF <D<M>*<D 



• >2)GOT0 5ns 
530:M=0:S=OU=Oi 
L=5:BEEP l: 

PAUSE "mTTEH 

HON. IL hPPR 

OCHE. . . " 
535:F=0:G=0:H=0 
540: R=10: FOR 1=1 

TO 3:GOSUB 1 

0:A<I,'=U: 

NEXT I 
565: BEEP 1: PAUSE 

" ENERGIE="i 



DHARS 




E:H=il»i: !='♦ 
1 

575: IF M=6BEEP 2 
:- AUSE "LE S 
OUS-MARIN h 
BOUGE i " : 
PAUSE "ATTEN 
TIONj IL REVI 
ENT!":M=0: 
GOTO 535 

530: IF FGOTO 590 

585: input " long 

itube="::«: 
590: IF GGOTO 600 
595: INPUT " LhTI 

TUDE="IY 
600: IF KGOTG 610 
605: INPUT " <='R0F 

oiibe ; jp=":2 
6I0:E=E-X-Y-Z 
6 15: IF =EG0T0 

760 
620: IF X=AIF Y=B 

IF Z=CGOTO 6 

SO 
625: IF » APAUSE 

" H L.EST" 
630: IF X>APAUSE 

" A L. GUEST" 
635: IF X=APAUSE 

" LONGITUDE 



CURPECTE":F= 

610! IF Y BPAUSE 

" HU SUB" 
645: IF Y>BPAUSE 

" AU NORD" 
650: IF Y=BPAUSE 

" LATITUDE C 

0RPECTE":G=1 

: Y=rj: B=0 
655: IF Z<CPAUSE 

" PLUS PROFO 

HB" 
660: IF Z>CPAUSE 

" MOINS PROF 

ONB" 
665: IF 2=CPAUSE 

" PROFONDEUR 
CORRECTE":H 

=l:Z=O:C=0 
67O:GOT0 565 
680: BEEP 3: PAUSE 

" VOUS EH AV 

EZ EU UN! !": 

R=10O:G0SUE 

10 
70O:U=3O*(U S3>+ 

40*«M>3S>*< 

W<66»+50*(W 

>S6> 
710: IF u=OLET R= 



R+1SG0T0 TOO 
F l:PAUSE 

' BONUS* + »: 
IJ:E=E-MJ:S=S» 

l:L=5-3:IF s 
=5THEN TSO 

745:PAUSE " IL E 
II pe;te ":l: 
l*=0:PAUSE " 
Ell VOICI UN 
AUTRE!"!GOT0 
535 

760:BEEP 5SPAUSE 
" ENERGIE EP 

UISEE " 

: PAUSE "IL R 
ESTE ":l: m S 
OUS-MHRIHS": 
00T0 S55 

730:BEEP 5: PAUSE 
" ....... VICT 

OIPE ******* 
": PAUSE " VO 
US LES WEZ 
TOUS EU!" 

soo: pause • ener 
gie restante 
=":e 

810:Q=83*<J<15>+ 
84*<tJ>15>*< 
J<20) '*;5*' ! 



i . : LET J= 

■ I: 

■ El : 

'.'I. .2 

■ :. o 355 
S40:BEEP 2: - 

" ESSAYEZ BE 
IhIPl HIEUX 
":OOTC 555 
2: EE-iP 2: PAUSE 
" VOUS AVE2 
EU CHftUD! " 
355: I IPU1 ..Il R 
EJOUE'«C N>" 
:mJ 
■ . : IF 

GOTO 505 
S90: PRINT "AU RE 
VOIR i 



P C 12** 



HP 41 



_ix commandes de votre AMX 30, vous traquez un 

far ennemi T. 72 t sur un terrain mine... 

ius disposez d'un radar et d'un detecteur de 

-:nes, mais attention, ce T. 72 n'est pas sans 

utifenses... 

OSMONT 

ii ,3TRUCT!ONS: 

Le lerram r., presente 400 cases reperees par leurs coordonnees (x.y) 

oil x et y valent et 19 ; 

Au depart vous avez : 

50 I. de carburant 

30obus 

20 utilisations du radar 

10 utilisations du detecteur de mines 

5 mines sont sur le terrain 

Debut du jeu : 

- 'JB ALEA 1 ? entrer un nombre inferieur a 1, R/S 

- FACILE N,0 ? taper sur pour OUI ou sur N pour NON, R/S. Si OUI le 
T72 ne se deplace pas. 

".suite le programme vous pose des questions ou il faut repondre par 
(pour OUI) ou par N (pour NON). 
.e detecteur de mines ne scrute que les 8 cases autour de I'AMX 30. 
:';quencede tire : "TIR X+Y?" introduce la case oil vous voulez tirerde 
• facon suivante : X. ENTER.Y R/S. Si le tir est a plus de 5.5 cases du 
: 72 : "TIR PERDU", sinon affichage de IMPACT - xx CASES", distance 
jfitre case d'impact et T72. Si I'impact est a moins de 0.5 case vous 
■■ez gagnez... 

.oquence de deplacement : 

'-ePLAC.X Y?" introduire la case oil vous voulez alter par X ENTER.Y 
■;S. Si vous voulez rester a la meme place faites stmplement R/S. La 
; ^nsommation de carburant est egale au carre de la distance parcou- 

e [72 ne se deplace que d'une case a maximum a la fois en se rappro- 
: -ant de I'AMX 30. 

:jand vous etes touche la premiere fois, une chenille de I'AMX 30 est 
I.S. Vous ne vous deplacez plus, mais vous pouvez tirer. A la deuxieme 
■ois... BOOM... Le radar nedetectequejusqu'a 7 cases de rayon autour 
Je I'AMX 30. 
















1 CF 29 


21 STO 87 


39 XEQ 28 


M CF m 


22 18 


48 » 


« cf ei 


23 STO 88 


41 IHT 


86 CF 82 


24 -H8 BLEU <! ?■ 


42 STO 83 


67 CF 93 


25 TOKE t 


43 28 


88 CF 94 


26 PROMPT 


44 XEO 28 


89 -BtlX.39 » T.72- 


27 STO 88 


45 t 


18 flVIEU 


28 28 


46 INT 


1! TOHE ( 


29 XEO 28 


47 STO 84 


12 TOKE t 


38 « 


48 TONE t 


13 TOHE ] 


31 INT 


49 XEO 21 


14 -TERRRIN NINE- 


32 STO 91 


58 9 


15 RVIEM 


33 28 


51 STO 14 


16 58 


34 XEO 28 


52 XEO 22 


!? 310 85 


35 « 


53 TONE t 


18 38 


36 IHT 


54 18 


19 SIO 86 


37 STO 82 


55 STO 14 


28 28 


38 28 


56 XEO 22 



57 TONE t 

58 11 

59 STO 14 
68 XEO 22 

61 TOHE t 

62 12 

63 STO 14 

64 XEO 22 

65 TOHE t 

66 13 

67 STO 14 

68 XEO 22 

69 "FRCILE 0,N ? 
78 HON 

71 TOHE t 

72 PROMPT 

73 (1ST0 V 

74 -0- 

75 flSTO Y, 

76 HOFF 

77 X=Y? 

78 SF 88 
79»LBL 82 
88 FS' 82 

81 GTO 84 

82 -RRDfiR 0,H ?■ 

83 BOH 

84 TOHE t 

85 PROMPT 

86 flSTO 1 

87 -H- 

88 OSTO X 

89 fiOFF 
98 X=V? 

91 GTO 84 

92 1 

93 ST- 87 

94 XEO 28 

95 7 

96 - 

97 X>8? 

98 GTO 83 

99 FIX I 
198 TOHE 7 

181 -DIST.= ■ 

182 ORCL 14 

183 flVIEH 

184 PSE 

185 GTO 84 
I86»L8L 83 

187 TOHE 3 

188 -RIEH EH VUE" 

189 flVIEH 
118 PSE 
111 GTO 86 
112<LBL 84 

113 RCL 87 

114 X=8? 

115 XEO 27 



116 "TIR 0,H ?■ 

117 BOH 

118 TOHE t 

119 PROMPT 
128 flSTO Y 

121 -N" 

122 flSTO X 

123 OOFF 

124 X=Y? 

125 GTO 86 

126 TOHE 7 

127 -TIR XIY ?■ 

128 PROMPT 

129 STO 14 
138 RUN 

131 RCL 83 

132 - 

133 Xt2 

134 STO 15 

135 RCL 14 

136 RCL 84 

137 - 

138 Xt2 

139 STt 15 
148 RCL 15 
141 SORT 

' 142 STO 15 

143 5.5 

144 - 

145 X>8? 

146 XEO 24 

147 RCL 15 

148 .5 

149 - 
158 X<8? 

151 GTO 26 

152 RCL 15 

153 5.5 

154 - 

155 X<=8' 

156 XEO 25 

157 1 

158 ST- 86 

159 RCL 96 
168 X<=8' 
161 GTO 23 
162«LBL 96 

163 "TIR T.72 .. 

164 TOHE 8 

165 BVIEU 

166 XEO 28 

167 5 

168 XEO 28 

169 » 
178 IHT 

171 3 

172 ♦ 

173 RCL 14 

174 X<=Y' 

17 



175 GTO 29 

176 "TIR HBKOIJE- 

177 TOHE 7 

178 BVIEU 

179 PSE 
189+LBL 18 

181 FS? 83 

182 GTO 12 

183 FS? 84 

184 GTO 12 

185 FS' 81 

186 GTO 12 

187 -DET. MIHE 

188 BOH 

189 TOHE t 
198 PROMPT 

191 flSTO Y 

192 -H- 

193 BSTO X 

194 BOFF 

195 X=Y? 

196 GTO 12 

197 1 

198 ST- 88 

199 8 

288 STO 14 

281 9 

282 STO 15 

283 XEQ 36 

284 18 

285 STO 15 

286 XEQ 38 
297 11 
288 STO 15 
299 XEO 38 
218 12 

211 STO 15 

212 XEQ 36 

213 13 

214 STO 15 

215 XEQ 38 

216 FIX 8 

217 CLfi 

218 TOHE 7 

219 ORCL 14 
228 "F MIHE" 

221 RCL 14 

222 2 

223 X<=Y? 

224 "FS" 

225 BVIEU 

226 PSE 

227 RCL 88 

228 X=8-> 

229 XEO 38 
238»L8L 12 

231 FS' 83 

232 GTO 14 

233 FS? 84 



234 GTO 14 

235 RCL 81 

236 RCL 82 

237 -DEPLRC. 

238 TOHE 1 

239 TOHE t 
248 PROMPT 

241 STO 14 

242 RON 

243 STO 15 

244 RCL 91 

245 - 
N?" 246 Xt2 

247 STO 16 

248 RCL 14 

249 RCL 92 
258 - 

251 Xt2 

252 ST+ 16 

253 RCL 16 

254 RCL 85 

255 - 

256 X>8? 

257 GTO 33 

258 RCL 16 

259 ST- 85 
268 RCL IS 

261 188 

262 » 

263 RCL 14 

264 -f 

265 STO 16 

266 RCL 99 

267 198 

268 * 

269 IHT 
278 RCL 16 

271 X=Y' 

272 GTO 34 

273 RCL 19 

274 188 

275 « 

276 RCL 16 

277 X=Y? 

278 GTO 34 

279 RCL 1 1 
288 188 

281 » 

282 IHT 

283 RCL 16 

284 X=Y' 

285 CTO 34 

286 RCL 12 

287 188 

288 » 

289 IHT 
298 RCL 16 

291 X=Y? 

292 GTO 34 



293 RCL 13 

294 198 

295 « 
XtY ?• 296 INT 

297 RCL 16 

298 X=Y? 

299 CTO 34 

388 RCL 15 

381 STO 81 

382 RCL 14 
393 STO 82 
384 XEO 21 
395 RCL 85 
366 X<=8? 
397 XEO 35 
388»LBL 14 

389 FS? 88 
318 GTO 82 

311 -DEPLBC. T.72. 

312 TOHE 9 

313 flVIEH 

314 XEQ 28 

315 .8 

316 t 

317 IHT 

318 STO 14 

319 3 

328 STO 16 

321 RCL 83 

322 RCL 9! 

323 - 

324 X>8? 

325 XEQ 36 

326 RCL 83 

327 RCL 81 

328 - 

329 X<8? 
338 XEO 37 

331 XEO 28 

332 .8 

333 ♦ 

334 IHT 

335 STO 14 

336 4 

337 STO 16 

338 RCL 84 

339 RCL 82 
348 - 

341 X)8? 

342 XEO 36 

343 RCL 84 

344 RCL 92 

345 - 

346 X<8? 

347 XEO 37 

348 "T.72 DEPLRCE" 

349 TOHE 5 
358 BVIEU 
351 CTO 82 



352«LBL 29 

353 RCL 88 

354 9821 

355 « 

356 .211327 

357 * 

358 FRC 

359 STO 88 
368 RTN 
36HL8L 21 

362 FIX 8 

363 TONE 5 

364 -BMX.38 X: - 

365 ARCL 61 

366 -F,Y:- 

367 flRCL 82 

368 flVIEH 

369 PSE 
- 378 RTH 

371«LBL 22 

372 28 

373 XEO 28 

374 » 

375 IHT 

376 STO IHD 14 

377 28 

378 XEO 28 

379 * 
388 INT 

381 188 

382 / 

383 STt IND 14 

384 RTH 
385»LBL 23 

386 -MUNITIONS H.S." 

387 TOHE 5 

388 TOHE 3 

389 flVIEH 
398 GTO 40 
39HLBL 24 

392 "TIR PERDU- 

393 TOHE 3 

394 flVIEU 

395 PSE 

396 RTN 
397«LBL 25 

398 FIX I 

399 - IMPACT • 
488 TOHE 7 
481 flRCL 15 

462 flVIEU 

463 PSE 
484 RTH 
485»LBL 26 

486 -T.72 DETRUIT- 



Suite page 19 






VITAMINES 



Vous devez essayer de marquer le plus de points possible 
en devorant les pastilles vitamines du labyrinthe. Pour 
vous ennuyer au maximum, vous aurez a faire face a un 
certain nombre de fantomes {dont vous aurez prealable- 
ment defini le nombre). et a I'affreux OTO, un petit etre 
ignoble qui n'hesitera pas a vous depecer, si vous vous 
trouvez en travers de sa route. De plus, ce cher OTO vous 
remetdes points. Pourvousaiderdansvotreperiple.vous 
pourrez mettre en marche deux tapis roulants, en devo- 
rant un quart (celui en haut et a droite) d'un camembert ; 
ou prendre un des passages secrets (ceux indiques par 
des fleches). Lors de votre entree dans le cimetiere, un 
eclairvouspreviendradevotrearriveedansleroyaumede 
la mort. Lorsque vous atteindrez 420 points un deuxieme 
labyrinthe beaucoup plus difficile viendra faire place au 
precedent. Ce labyrinthe gardera les memes proprietes 
de jeux sauf pour la mise en route des tapis roulants ; ou il 
faudra manger un point rouge a la place d'un des quarts du 
camembert. 

YANN GENAN 



Conseil k ceux qui recopieront ce programme : 

A chaque rencontre dans le listing : — d'un carre plein (■) ; veuillez lui 

definir !a couieur Green. 

- D'un point (GRAPHICS H). la couieur Cyan 
(Sauf dans le cimetiere (couieur magenta)) 

- D'un dieze (£). la couieur red 

-de OTO ( © GRAPHICS E). la couieur magenta 
-d'unetombe( D GRAPHICS T), la couieur cyan 

- d'un fantome { Q GRAPHICS U). la couieur yellow 
-dupacman{© GRAPHICS A) 

{ Q GRAPHICS B) 
( C2 GRAPHICS C) 
( (^GRAPHICS D) 

- d'une fleche ortentee du cote gauche ( GRAPHICS J), la couieur 
green 

-d'une fleche orient.ee du cote droit ( GRAPHICS I), la couieur 



SP 



ECTPAJM 




1 LET ■•=" ": LET h=0: LET g = 


708 


LET dX=SGN tX-C 


tgJ 1 *INT 


tRN 


LET xn^S: LET Uft=8-. LET nb = 3: 


D*nb) 








LET 2 = 


710 


LET dy=SGN (y-l 


tg) ) if INT 


CRN 


= go sub 9000 


D#F>b) 








i GO SUE 4331: GO SUB 3000; L 


730 


LET XQfl=C (a) *dX 








740 


LET ygn = l (g) +dy 






S BORDER 3 PP1PER 0: CL5 GO 


750 


IF xgn cQ OR xgn 


>31 THEN 


RET 


SU5 SO0S: BORDER B; CLS : GO SU 










3500 


76B 


if ygn <© OR ygn 


>21 THEN 


RET 


5 RESTORE 3B50: FOR i =0 TO 7 : 


URN 








RERD t : POKE USft "t"ti,t: NEXT 


770 


if point ixgn#B 


*-s, £2i-ygn) 




5f2) 


1 THEN RETURN 






~ CLS : GO SUB S003-. CLS 


775 


PRINT Pit L tg) , c 


(g>;" " 




B BEEP .01,20- PRINT "PflC MAN 


760 


LET c (gs -xgn 






£> gehrn Ysnn- 


790 


let i cg> =yan 






15 GO 5UB 1033 


S00 


INK 6: PRINT RT 


(. (9> *c (g> ; ' 


20 DIM C (5) : DIM I (53 


ft" 








27 LET ng = INT no 


305 


IF g=* THEN INK 


6; PRINT AT 



35 GO SUB 900 

32 BEEP 1,5: BEEP .2,10 

SO GO SUB 500 

B3 FOR g=l TO nq 

63 PRINT RT . 12; -POINTS'. "; PO 

64 IF p3s=nbl OR pas=nfa2 OR pa 

T^nbB THEN GO SUB 7033 

65 IF p3S=r.b3 OR pas=nb4 OR pa 
;=nb5 THEN GO SUB 7000 

69 GO SUB 700 

70 GO SUB 500 
75 NEXT a 

SS GO TO 50 

110 FOR d=l TO 200: NEXT d 

530 LET dX=0: LET dy =0 

535 IF PEEK 53560=53 THEN LET d 
.-.=-!■ GO TO 560 

540 IF PEEK 23560 = 5-1 THEN LET d 

y = l: GO TO 530 

345 IF PEEK 23560=55 THEN LET d 
' y=-l; GO TO SS0 

316 IF PEEK 23560=56 THEN LET d 

x»l- CO TO 560 

550 RETURN 

533 LET *n=X *dx 
590 let yn=u+dy 

513 IF un<B THEN RETURN 
515 IF POIFTT Ixn(6f4, Ol-yn) l8t 
*J »i THEN LET po = po H 
il" IF po=420 THEN GO SUB 3100 

551 IF POINT lints, (21-un) *8) =1 
THEN RETURN 

S22 IF xn = 16 RND un=13 THEN LET 
haii LET j»l BEEP .2,20: PRINT 
ST 21 ,9, -a" ■ PRINT RT 1,0, ; "tt" 

623 IF xn=9 RND yn=21 RND S=l T 
H£N PRINT RT 13, 16, INK 2; "O" : F 
OR i =23 TO 3 STEP -1: PRINT RT i 

,9i"U": PRINT RT i+1,9;" ": BEEP 

. 3 39, 10: LET y r> = i : NEXT i : LET 
.-.=0 PRINT RT 21,9. "B" 

624 IF XRaiO RND un = 1 RND J = 1 TH 
EN PRINT RT 13 , 16, INK 2,' "O " : FO 
H i =1 TO 21 : PRINT RT 1 , i , "C" : P 
S2NT RT 1 , i -1, " BEEP .009, 10 : 

NEXT i : LET -r,=21; LET Ufl = l: LE 
T j =0: PRINT RT 1,0, "■" 

535 IF xn=29 RN& un=5 THEN FOR 
i = -30 TO -10: BEEP .005,1: NEXT 
FOR i =5 TO 7: PRUSE 2 BORDER 
i ; NEXT i 6URDER 

633 IF an = l RND yml5 THEN BEEP 
.09,0: LET if ft =30 PRINT RT 15, 1 
GO TO 634 

633 IF XFi=30 RND 'Jfl = 15 THEN BEE 
P . 09 ,0 PRINT RT 15,30," LET 

an = 1 

634 INK 4: IF •••"l" THEN PRINT 
PT y,x,-f|- GO TO 640 

635 PRINT RT y , X ; " " 

640 BEEP .30.1,10 LET X=xn; LET 
P»S":P*S +1 
639 LET u t: 

660 INK S. ,-, 

661 IF PEEK 23560=55 THEN PRINT 
«T y ,X, "W 

662 IF PEEK 23560 = 54 THEN PRlrfT 
RT y , X, ■•«*" 

663 IF PEEK 23560=53 THEN PRINT 
prr W,K,">" 

670 RETURN 



. . "A" 

S10 IF XOClg) THEN RETURN 
B20 IF y t > L ig J THEN RETURN 

330 print RT 3i,B:"cest voire 
en terreaen t ! '• GO SUB 4000 

B35 POKE 23624,6: BEEP .1,10: J. 

MPUT "Nouva l le par tie (o^n> "; a* 

837 IF a$B H n" THEN STOP : NEU 

B3B GO SUB 9000: GO TO 6 

840 FOR d=l TO 200: NEXT d 

370 STOP 

900 LET X=5: LET y = ll 

905 LET po=0: LET pas=0 

910 INK S: PRINT RT y,X,"C" 

920 FOR g=-l TO ng 

=31: LET I tg) =INT ( 



16*0/ 
950 



>g) 

INK 6: PRINT RT I (g) 



955 IF g=4 THEN I 

I tg) , c cgJ ; "A" 

960 NEXT g 

370 RETURN 
1000 INK 4 
1005 FOR i=l TO 21 
;"■■■; : NEXT 

A -A-A-A- 

1010 PRINT RT 2,1; 



PRINT RT 



PRINT RT JL, 



1015 FOR 



317 PR^^r^ fit 
■•■QQ 

1018 PRINT RT 




print rt i,aa;~|' 



5 , 1 ,' " - • 



102:3 PRINT R. xj-jJ. 

urn QQ - * 

1024 PRINT RT 12 . 1 



1025 PRINT RT 1371; " ■" 

1026 pRir^rr nr ^J^ij "■IHB ■■ 

1027 PRINT PTT J^^Tj " BH ' ■ • ' 

1023 PRINTER? 16^1, "MM ■" 

1029 FOR 1=8 TO STEP -3: INK 3 
CIRCLE 127,64,1: INK 6: NEXT I 

1030 PRINT RT 17,1;" ■■ 

1031 PRIMT RT16, 1^" ■ ■ -^^^H* ■ - ■ 

103^nlMT FIT 19, Ij "•'•■••*■•• •■ 

^55^FOR I«l TO 30: PRINT RT 20, 
I, ■•■■; | NEXT I 
1140 INK 4: FOR i=0 TO 3).: PRINT 

rt 0,»;"B";rt ai.i ;"■**; next i 

1150 FOR 1=1 TO 20: PRINT RT 1,0 



11B0 



T 1,31, "■': NEXT L 
15,0, ''tfi FIT 15,31 . 



FOR i =U5R 




3301 rerd araph: poke i, graph 

3002 NEXT t : RETURN 

3003 DRTR 60, 118 ,31 . IS . 15.31.13F, 
, 60 

3 004 DRTR 60, 110 ,243 ,240 . 24 0, 24« 
, 126,60 

3005 DRTR 24 ,24 . 126 , 126 .24 .24 , 2C 
,24 

UOO& DRTR 126, 102, 102,66,66, 102 . 
132, 126 

3307 DFFTR 26 . 62 , 42 . 137 . 127 . 127 . 1 
09,73 

3008 DRTR 0, 66, 195 .231 ,255 , 355, 1 
26 . 60 

330 9 DRTR 60 . 12 6 ,255 .255 , 23 1 , 195 
,55,0 

3010 DRTR 60,126,219.255,255,219 
■102, 60 

3 050 DRTR 56 . 124,236 . 193 . 236 .236 
,254 ,254 

3055 DRTR 0,0,0,24,24,0.0,0 

3060 DRTR 255. 2. 17, 2^,3, 129 . 129,24 

3 ,247 ,255 

3065 DRTR 25S , 239 , 207 , 129 , 129 , 2D 

7,239,255 

4000 RESTORE 3005: FOR i =USR "f" 
TO U5R "g" +7: RERD fa I POKE i , f 

g : NEXT i : GO TO 4004 

4001 RESTORE 3007: FOR i =0 TO 7. 
RERD U : POKE U5R "U'- (■ i , U : NEXT 

4 002 RESTORE 3006: FOR i =USR " C " 
TO USR "e"+7: RERD Cde: POKE i , 

Cde: NEXT i 

4003 RESTORE 3055: FOR i =U5R "h " 
TO USR "j'+7: RERD hij: POKE i, 

hi J: NEXT i: RETURN 

4004 PRINT RT U,x; * " 

4005 print rt y,x; "t" 
4005 PRINT RT y«-l,x;"B" 

4010 LET S = -6: BEEP 3,0-. BEEP S» 
2/3,0: BEEP S/3,0: BEEP 5,0: BEE 
P S *2/3,3: BEEP 3/3,2: BEEP S *2 / 
3,2; BEEP S/3,0: BEEP Sf2.'3,0: B 
EEP 5/3,-1: BEEP 5,0: RETURN 
6300 PRINT TRB B; '•URRIRNTES DE J 
EU" 
6010 PRINT 

6020 PRINT "POUR CHANGER 

TOPER" 

5030 PRINT 

5040 PRINT ' .DE NOUUERUX HURS S£ 
SE FORHERONT RPRE5 
UOTRE PRSSRGE 



6050 PRINT 

6060 PRINT ".POUR CHRNGER LE NOM 
EIRE DE BONDS DE CHROUE 

FRNTOME.2 

6070 PRINT ! PRINT 

6060 PRINT "TRPER R POUR JOUER" 

6100 INPUT "QUELLE L'RRIRNTE 7"; R 
BEEP . 1 , 10 



6110 



IF R$ = 



OR R*=" 



THEN 



GO 



6120 IF R$="2" THEN FLRSH 1: INP 
UT "COMBIEN DE BONDS (2 a 9 ) 7 " ; P. 
b: BEEP . 1 . 10: FLRSH 0: LET £*=' 
" : IF nb(2 OR nb>9 THEN GO TO 6 
120 

6140 IF r $="1" THEN LET J$="l"; 
LET flb=3: CLS GO TO 6E00 
6150 GO TO 6103 

6200 INPUT "Mb de ran'.ones il a 
4) *•; ng : BEEP .2,25 

5210 IF ng<i or ng >4 then GO to 

6200 

6220 RETURN 

7000 LET n b = n b*-l : FOR i =3Q TO 2 .'■. 
STEP -1 _ 

7002 PRINT RT 17 , i ; "A" : RT 17 , i + i 
;"-": BEEP .009,30: LET ymn=17: 
LET X«n=i : GO SUB 7100 

7003 PRINT RT 17,31;"|" 

7004 NEXT i 

7006 FOR i =17 TO 3 STEP -1 

-008 PR INT RT i , 2 1 ; "#" ;HT i *■ 1 , 2 1 



GO 



09,2 



HJB 



LET 



7010 NEXT 

703.2 FOR i=21 TO 10 STEP -1 

7014 PRINT RT 3 , i ," "#'" ; RT 3 , » + 1 ; " 

• " : BEEP .009,30: LET u»n=3: LET 

X»n=i : GO SUB 7100 
7E1S IF i =21 THEN PRINT RT 3,22; 

JL. 

7016 NEXT i 

7316 FOR i =3 TO 20 

7020 PRINT RT i , 10; "#■'; RT i-1,10 

; "*-": BEEP .009,30: LET ys»n = i : l_ 

UT X»n=10: GO SUB 7100 

7 022 NEXT i 

7324 FOR i =10 TO 30 

7326 PRINT RT 20 , i ; "#", RT 20, i -1 

J">' - ; BEEP .009,30: LET uan=2Q: 

LET Xl»n=i : GO SUB 7100 

7026 NEXT i 

7029 PRINT RT 20,30,"-": LET pas 

-pas *-i 

7030 RETURN 

7103 IF x»n=xn RND yan=urt THEN G 
O SUB " " 



GO 5UB 



GO TO 5 



7110 RETURN 

3000 reh presentation 

B001 INK 6 

6005 REM P 

3010 PLOT 67, 120: DRRU 0,40 

3020 DRRU 24,0: DRRU 0,-54 

6025 DRRU -16,0: DRRU 0, -16 

£3026 DRRU -6,0: PLOT 95 , 144 

3G27 DRRU 0,6: DRRU 6,Q 

■:.V02 3 DRRU 0,-6: DRRU -3,0 

^33 3- : n£i+i r-. 

3031 PLOT 119, 120 

=iS32 DRRU 0, d.0 : DRRU 24 .0 

ftffl3:H.ORf*U. Fi -.-jLF1-_ .DRRU _-/^.0 

3334 DRRU 0,16: DRRU -B . 

/"J'-J^S. .DRRU. PI ._-.1.FS-_ .DRRU ^-FL.- 

3036 PLOT 127, 144 

3G37 DRRU 0.6: DRRU S . 

■03S DRRU B, -Si DRRU ^-8,0 

334 REH C 

3041 PLOT 175,160 

SJ^JiP. .DRRU _-P«L..0 _ .DRRU. pi . -J.& 

S04.3 DRRU 24,0: DRRU . 5 

3044 DRRU -16,0: DRRU 0,24 

3045 DRRU 16,0: DRRU 0,S 
B050 REH H 

3051 PLOT 71,72 

3352 DRRU 0.4O: DRRU B.0 

335 3 DRRU 12 , -16; DRRU 12, 16 
3054 DRRU 3,0: DRRU 0,-40 
90SS DRRU -6,0; DRRU . 24 
33S6 DRRU -12, -12: DRRU -12, 12 
'-QS7 DRRU 0,-24; DRRU -6.0 

seea rem r 

£061 PLOT 119 ,72 

<::GiL2 DRFIU 3 . 40 . DRRU 24 ,0 

8063 DPRU 3,-40: DRRU -B.0 

15064 DRRU 0,16: DRFIU -B , 

S06S DRRU 0, -16: DRRU -B .0 

B0B6 PLOT 127.96 

3067 DRRU 0,3; DRRU 6.0 

J «5B DRRU 0. -S: DRRU -6,0 

3070 REM N 

CB71 PLOT 151.72 

3372 DRRU 0,40: DRRU 8,0 

3073 DRRU 24 , -24 : DRRU , 24 

.■374 DRRU B,0: DRRU 0,-40 

3375 DRRU -B,0: DRRU -24.24 

3076 DRRU 0, -24 : DRRU -8 , O 

3080 REM TF4i I 

:-j331 INK 2 

3062 FOR i =4S TO 64 

C;B83 PLOT 55, i 

30B4 DRRU 153,0 

3065 NEXT i 

iiOGG INK 6 

3120 LET g *='£) GEHRN yann" 

B130 LET cpiB 

B 140 FOR i =1 TO 31 

3. 1 50 PRINT RT 0, i , -C" ; RT 0, i -1; ' 

■ll60 BEEP .01,1 

c<170 NEXT i 

3180 FOR i =1 TO 21 

BIOS print RT i ,31; ■•**";RT 1-1,33 

3200 BEEP .01,1 

3210 NEXT i 

t:220 FOR i =30 TO STEP -1 

523C PRINT RT 21, i ; ">", RT 21, i ♦: 

3240 BEEP .81, i 

3250 NEXT i 

6260 FOR i =20 TO STEP -1 



3270 PRINT RT 

S2B0 BEEP .01 , 

3290 NEXT i 

"" PRINT RT 



3 310 



LET 



:p=e 



>32 THEN PRINT 



3340 FOR i =2 TO 29 
345 LET a I =IMT IRND»7t-l) 
3347 BEEP .01 , i 
3350 PRINT RT 17.1, '*.C" 
3360 IF i (11 OR 
RT 17, i -l; " " 
3370 IF i >=10 RND i (=21 THEN LET 
CP=CP+1: PRINT RT 17 , i , INK a I , 
)StCp TO Cp I 
3380 NEXT i 

3390 PRINT RT 17,29;" 
5400 FOR i =1 TO 30 
34 10 LET a L =INT (RNDt7) 
3.12G BEEP -0O5,i 
3430 BORDER a I 
3440 NEXT i 
3443 BORDER 

B44S GO SUB 9260 : REM GOD SRUE 
3450 RETURN 

SS00 reh regie du jeu 

3510 PRINT RT 1 , 10; INK 4; "REGLE 

DU JEU" 
5520 PRINT RT 2,10. INK 2;" 



-."'i.jf! 



PR INT RT 4,0;".UOU 

re pe t i t PRC-" 

PRINT " MRN perdU 



3550 PRINT ' i r 
3550 PRINT 
3570 PRINT ".Mi 

35 ti i les" 

3580 PRINT " Vi 

res i ter Le'" 

3590 PRINT " p I 

3595 " REH 
6600 PRINT 
S&10 PRINT INK 
L'RFFREUX OTO 
3620 PRINT TRB 
8625 PRINT 
3630 PRINT " . . , 



5: "H 

if]:: 



i nses a f in de 
lo*gteaps poss 

HRIS ATTENTION 
"UEILLE" 

alter a 9a 
descendre " 



uche " 

6635 PRINT 

B&40 PRINT 

B645 PRINT 

3650 PRINT 

3655 PRINT 

8560 PRINT 

Oi te" 

S670 print m; "space pour joucr 

3680 IF INKEV$=" " THEN RETURN 
8690 GO TO 8660 
900O REM sortie DCO 

.qa.ia.j FT.-nj.i-=T>rr.. L&nn_fSiPit\i ■ 1 ft 

b2=INT (RND*30B) : LET nb3=INT 



. .7 pour non ter " 
. .6 pour alter a 



RND* 
9020 



ai 



= INT (RND 1-400 4-300] : 
LtT nb5:lNT CRND f400*300) : LET 
b6 = INT (RND*400«-300> 
9030 RETURN 

3100 REM 2e«e labyrinthe 

9110 CLS 

9200 FOR i =0 TO 31: PRINT RT 0, 
; INK 4; "■"; RT 21, i ; '■" : NEXT i 

9201 PRINT RT " 
■■■- 

9202 PRINT 

s-m ■■" 

9203 PRINT - 

wm-*'" 

9204 PRINT " 
■-■ 

9205 PRINT " 

-■-■ H 

9206 PRINT " 
■ 

9207 PRINT H 

920B PRINT " 

3209 PRINT " 

93 10 PRINT " 
- ■■■ 

9211 PRINT " 
■ ■■ 

9212 PRINT " 

3213 PRINT " 
9214 PHIJJT " 



9215 


PRINT 


■••■ -W--M 


■-•■■- ' 

9216 PRINT 




•'■- 


-■-■i 




9217 


PRINT 


■• ■ ■WK^BK^M' 


32^ 


PRINT 


. ■■-■§ J •■ ■ - • 








9219 


PRINT 


-■ ■ -!■ •» 


■«•■ 

9 23S5 


PRINT 


... IB-Hi 


9230 


FOR i 


=1 TO 20: PRINT RT i,0 


; INK 4; "■ 


•;rt i ,31; ■*■-: NEXT i 


9235 


PRINT 


RT 15,0; INK 4;"D'-.;rt 


15,31; "Q" 




9240 


PRINT 


rt yn,xn; ink 2; "C" 


9250 


RETURN 


3260 


REH GOD SRUE THE OUEEN 


9261 


PRUSE 


25 


9252 


BEEP 


.5,7 


9363 


BEEP 


.5,7 


9264 


BEEP 


.5,9 


9265 


BEEP 


1,6 


9266 


BEEP 


.25 .7 


9267 


BEEP 


.5,9 


9266 


BEEP 


.5, 11 


9269 


BEEP 


.5,11 


9270 


BEEP 


.5, 13 


9271 


BEEP 


1, 11 


3272 


BEEP 


.35,9 


9273 


BEEP 


.5,7 


3274 


BEEP 


.5,9 


9275 


BEEP 


.5,7 


9276 


BEEP 


.5,6 


9277 


BEEP 


1/7 


927B 


PAUSE 


£5 


9279 


BEEP 


.5, 14 


9260 


BEEP 


.5, 14 


9281 


BEEP 


.5, 14 


9262 


BEEP 


.25, 12 


9233 


BEEP 


92B4 


BEEP 


.5, 11 


9285 


BEEP 


.5, 12 


9266 


BEEP 


.5 . 12 


92B7 


BEEP 


.5 . 12 


92B8 


BEEP 


1, 12 


9289 


BEEP 


.25, 11 


3290 


BEEP 


.5,9 


9291 


BEEP 


.5,11 


3293 


BEEP 


. 35, 12 


9293 


BEEP 


.35, 11 


9294 


BEEP 


. 35, 9 


9295 


BEEP 


.25, 7 


9296 


BEEP 


1, 11 


9297 


BEEP 


.25, 12 


929B 


BEEP 


.5, 14 


92 99 


BEEP 


.25, 16 


9300 


BEEP 


.25 . 12 


9303. 


BEEP 


-B, 11 


9302 


BEEP 


.5,9 


9303 


BEEP 


'■it 


9304 


PRUSE 


9 305 


RETURN 


9950 


REM ft 




3951 


REM * 


GRRPHIOUES t 


9952 


REM 1 

REH 1 




39 53 




9954 


REM 




9956 


REM 


R > 


9956 


REM 




9957 


REM 


B C 


9958 


REM 




'■''159 


REM 


C V 


9960 


HEM 




9961 


REM 


D « 


9962 


REM 




9963 


REM 


E • 


9964 


REM 




9965 


REM 


F: t 


9966 


REM 




9967 


REM 


G (J 


996S 


REM 




9959 


REM 




3970 


REM 




9971 


REM 


I: a 


99 72 


REM 




9973 


REM 


J: □ 


9974 


REH 




9975 


REM 


T: 


9976 


REM 




9977 


REM 


U. * 


997D 


REM 
REM 




9979 
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SOLITAIRE 



Voiia un solitaire multiple ! ; Vous pouvez choisir 
votre champ de bataille : en croix, en carre ou en 
octogone. 

Une fois le programme entre (OUF !!!) il sera sauve 
sur cassette par CLEAR puis GOTO 1300. Le pro- 
gramme se met en route automatiquement des la 
fin du chargement et propose les regies du jeu. tres 
detainees. S'il obtient une reponse affirmative il 
les donne puis propose 4 versions du jeu, sinon II 
demande tout de suite la version choisle. 
La reponse est prise pour un INKEYS. puis le jeu 
commence sur un carre de 13 x 13 (+ 1 ligne de 
chaque cote pour marquer le contour). 
Le but est d'eliminer tous les plons sauf un 
SOLITAIRES, A VOS CLAVIERS I 



%+* 



L5 LET T»*iNKEY8 

[J f»-"Q" then GOTO 306 
;7 IF T»="N" THEM GOTO 1200 
:S GOTO 25 

.. 
• i DIM $*<*.*> 
MM li< 4 i 

PE M — — — — 

W1 -INITIALISATION OU JIU- 

'■If! Nfi 19' 19 • 
■ Lil Ml' I M' 
■ MK1SX 

. RT B,|j B VGJILLH Mff] 

.-2 TO 14 
.* LET N*<X, 1 )=■'■" 
■0 LET N*<X,15)=>"B" 
'8 NEXT X 
; LET s=0 
LET A»="088" 
<id FOR X=2 TO 14 
?8 LET N»<X,2 TO 14>"00000000 

■• :oo" 

B NEXT X 

161 IF H=4 THEN GOSUB 1050 
102 IF H=3 THEM GOSUB 1100 
.53 IF H=2 THEM GOSUB 1120 
164 CLS - 

105 LET C-I5 

166 LET L»8 

107 REti 

108 REM - DE3SIH DU JEU 

199 REM 

115 LET HK8,S>" " 

120 PRINT FIT 2,0 

130 FOR X=l TO 15 

149 PRINT TFiE 8;N*<X) 

156 NEXT X 

152 PRINT AT L,Ci"o" 

168 PRINT AT 6. 3. "SCORE M ,fi« 

162 PRINT FiT 1,6;"ME1LLEUR SCOR 
E " . B*( H ) 

167 REN 

168 REN - CHOIX DE LR CASE DE - 

- DEPART RVANT UNE 
PRISE 

59 REM 

70 LET N*=INKEV» 

38 IF Ml""" THEN GOTO 170 

." [F Ht="F" THEM GOTO 248 

■■ 37 IF I1*="3" THEN GOTO 706 

•8 IF M*="5" THEN G0SU6 360 

IF MS="6" THEN GOSUB 356 

"■ IF M*»"7" THEN GOSUB 409 

•£0 IF ri*="8" THEN GOSUB 450 

S0 GOTO 178 
•37 REN 

: feu -choi;: de la direction- 
-poup une pr vie 

. S3 PEN 

240 LET V*»INKEY* 

=45 IF '/*="" THEN GOTO 240 
246 IF ■■/*■ "5" AND V*0"6" AND 
; ■,■" HMD V»<>"8" THEN GOTO 24 

250 IF V*»"5" THEN GOSUB 560 
255 IF V*-"6" THEN GOSUB 556 

_■:■■: r, v*«"7" then gosub 6oe 

70 IF V*="8" THEN GOSUB 650 
-.71 LET fl*-STR* S 



Gabriel CELIM 



672 IF LEIi A*=l THEM LET AS="66 
"*A* 

273 IF LEN A*^2 THEN LET A»="0" 
♦A* 

273 PRINT ft! 6. 16;A* 

260 GOTO 170 

297 REN 

KPLAClMIHI VERS LR - 

- gauche WNl PMU 

MS 8IM 

IN IF wi(L«s*c-?)""r Or? H»a- 

t#C-t>«"i" THEN RETURN 

-Hs PPMH -it l 5) CiNWt.-l*e-f> 
|i e«e-i 

-:i r-Min m i-.l.lh^i >:?9&l in. 

141 PETUPN 

3d? KgM «««™— »..»«„:. 

341 KM - EiEPLMceMHT VERS L.E - 

- BRS SANS PRISE 

343 REN 

358 IF HS-:L-1,C-7>="B" OR N«<L- 
1.0-7 >=-."■#*" THEN RETURN 

368 PRINT FIT L,CjN»<L-2,C-7) 

365 LET L=L+1 

370 PRINT AT L-CCHR* '.CODE N*< 
L-2,C-7J*-123> 

3S0 RETURN 

337 PEN 

398 PEN - DEFLfiCEMENT VERS LE - 

- HRUT SfiNS PRISE 

339 PEN 

400 IF Hit L-3, <:-?>=■■*■■ OR N*(L- 
3,C-7>="3" THEN RETURN 
418 PRINT AT L,C;N*<L-2,C-7) 
420 LET L=L-1 

436 PRINT fiT L.CCHR* <C0DE NSC 
L-2,C-7H123> 

448 RETURN 

447 REN 

44S REN - DEPLfiCENENT VERS LR - 

- DROITE SANS PRISE 

443 REN 

458 IF NKL-2,C-6>-"B" OR HSCL- 

2,C-6)="BT THEN RETURN 

466 PRINT AT L,C;N*>: L-2,C-7) 

476 LET C=C+1 

4S8 PRINT AT L.CCHR* (CODE NK 
L-2,C-7>+128> 

438 RETURN 

437 REN 

433 REN - DEPLfiCENENT VERS LA - 

- GfiUCHE AVEC PRISE - 

435 REN 

566 IF C-16 THEN GOTO 502 

561 IF N*(L-2,C-7J="0" fiMD NWL 
-2,C-8>»"0" AND NS<L-2.C-3)=" " 
THEN GOTO 515 

582 PRINT AT 28.8; "IMPOSSIBLE" 1 
503 IF C<18 THEN PRINT ",VOUS S 

ORTEZ DU JEU" 

564 IF C<16 THEN GOTO 518 

505 IF N»tL-2.C-8X>"0" THEN PR 
INT "-V0US PRENEZ UNE CASE VIDE" 

566 IF N*a-2',C-SX>"0" THEN GO 
TO 510 

587 IF N*(L-2.C-7><>"0" THEN PR 
INT ",VOUS ETES SUR UNE 

583 IF N*<L-2,C-7X>"0" THEN GO 
TO 518 

303 PRINT ".VOUS M""fiRRIVEZ PflS 

SUR UNE CASE BLANCHE" 

516 PAUSE 260 

511 PRINT AT 26,8;" 



512 RETURN 

315 PRINT RT L.C." ";HT L.C-1-" 

" > RT L.C-2)"o" 

317 LET 8-8+1 

520 LET H»CL-2,C-8}o" " 

525 LET N*(L-2-C-3)-"0" 

527 LET N*CL-2,C-7>" " 

530 LET C-C-2 

540 RETURN 

547 REN 

546 REN - DEPLACENENT VERS LE - 
- BAS AVEC PRISE 

543 PEN 

558 IF L.-15 THEN GOTO 552 

551 IF N«<L-2,C-7>*"0" AND NWL 
-l,C-?>"0" AND N*CL,C-7)«" " TH 
EN GOTO 565 

552 PRINT fiT 20,8; "IMPOSSIBLE" . 

553 IF L>15 THEN PRINT ",V0U5 S 
ORTEZ DU JEU" 

554 IF L>15 THEN GOTO 560 

555 IF HXL-l.C-7)"" " THEN PR I 
NT ".VOUS PRENEZ UNE CRSE VIDE" 

556 IF N*<L-l.C-7)=" " THEN GOT 
566 

557 IF N*a-2.C-7X>"0" THEN PR 
INT ",VOUS ETES SUR UNE 

CASE VIDE" 
353 IF HI(L-?,r,-r)<)"0" THEN GO 
TO 560 
55? PRINT ".VOUS N""ARRIVEZ PR3 
SUR UNE CfiSE BLANCHE" 
568 PAUSE 288 
561 PRINT AT 20, 8j" 



i PRINT AT 21,6j"UNE fiUIRE PA 



ifiT L+I.Ci' 



THEN GO 



562 RETURN 

565 PRINT AT L.i 

";AT L*2»CJ "o" 

567 LET 8^+i 

570 LET N*'. L-l,C-7>=" " 

575 LET N*',L.C-7."="0" 

577 LET N*a-2,C-?:-" " 

580 LET L=L+2 

538 RETURN 

597 PEN 

598 PEN - DEPLflCEMENT VERS LE - 

- HRUT rwec PRISE 

533 RE 11 ' 

600 IF L^ 5 THEN GOUj \%A 

W3 IF N*a-2.C-7>="0" AND N*'.L 

■ :.'.. ;■ i*"0" ami- N*' L-4,r-ri=" » 

THEN GOTO (15 
a94 FMNT NT &. a, " IWFUtoIbUfe" ■ 
c6^ lr u n then f^IHi ".VSyi 16 

&u if i^ \m\ auTo *\e 

SiP If rWL»i»6«?« "u" THIH ff- 
%m IF H*a=Mt-?. ; "u" THEN §u 

to hi 

ce& IP lll(L^,C=?>w"e" then PR 
INT ",VOUS ETES SUR UNE 
CASE VIDE" 

618 IF NSa-2,C-7X>"0" 
TO 612 

611 PRINT ",VOUS N""ARPIVEZ PfiS 
SUR UNE CfiSE BLANCHE" 

612 PAUSE 200 

613 PRINT AT 20, 0, » 

614 RETURN 

615 PRINT AT L,C." ",AT L-1,C," 
"jfiT L-2,C;"o" 

617 LET S=S+1 

628 LET N«^L-3,C-75=" " 

625 LET N*<L-4,C-7)«"0" 

627 LET N*<L-2.C-7>=" " 

6S0 LET L=L-2 

640 RETURN 

647 REM 

648 REM - DEPLACENENT VERS LR - 

- DROITE AVEC PRISE 
643 REM 

650 IF C>20 THEN GOTO 552 

651 IF N*<L-2,C-7>="0" AND NKL 
-2,C-6>s"0" AND H«L-2,C-3>"" " 
THEN GOTO 665 

652 PRINT fiT 20. 0; "IMPOSSIBLE"; 

653 IF C>20 THEN PRINT ",VOUS S 
ORTEZ DU JEU" 

654 IF O20 THEN GOTO 660 

655 IF N*CL-2,C-6)=" " THEN PRI 
NT " j VOUS PRENEZ UHE CfiSE VIDE" 

656 IF N*CL-2.C-6>=" » THEN GOT 
668 

657 IF N*<L-2.C-7X>"0" THEN PR 
INT ",VOUS ETES SUP UNE 

CfiSE VIDE" 
653 IF NS<L-2,C-7X>"0" THEN GO 
TO 668 
653 PRINT ",VOUS N""ARRIVEZ FfiS 
678 LET NS<L-2.C-6)«=" " 
675 LET N«L-2»C-7>" " 
677 LET- NS(L-2,C-5>="0" 
680 LET C°C+2 
690 RETURN 

700 IF S<M<H) THEN GOTO 750 
705 LET N(H>sS 

716 LET E«<Hv=STR» M(H> 

712 IF n<:H>>10 THEN GOTO 720 

714 LET B«CH,3i=B*CH> 

715 LET e*1H. 1 TO 2>="00" 

717 GOTO 730 

726 IF N(H>>108 THEN G6T0 730 

721 LET B*<H,2 TO 3)=B*<H> 

722 LET B«H,O»"0" 
738 PRINT AT 1, 16;B«<H> 



760 LET V»=INKE7« 




770 IF ■■/•""■■ THEN GOTO 




760 IF VS="0- THEN GOTO 




730 IF V*="N" THEN GOTO 




800 GOTO 760 




310 CLS 




820 PRINT AT 10,0; "TANT 




T 21,18;"fiiJ PEVOIR..." 




630 STOP 




340 CLS 




845 PRINT "VERSION ?" 




846 PRINT 




347 PRINT " -1- CARRE 




848 PRINT 




S43 PRINT " -2- CROIX 


GRECOUE 



856 PRINT 

851 PRINT " -3- OCTOGONE* 
352 PRINT 

853 PRINT " -4- CROIX ( 2EME V 
ERSIONV 

855 PRINT 

856 PRINT "EHTREZ LE CHIPFRE DE 
SIPE..." 

837 LET H*-1NKEV» 

858 IF H«<"1" OR H»>"4" THEN GO 

853 LET H-VAL H* 

860 CLS 

B61 GOTO 32 

900 PRINT AT 16.0;" 

910 PRINT AT 3.0;"C""E3T LE JEU 
TRES CONNU 00 IL " 
912 PRINT 

314 PRINT "FfiUT ESSfifEP D""ELIN 
I HER TOUS " 

915 PRINT 

916 PRINT "LES PIONS EN EN GAPD 
ANT UN SEUL" 

917 PRINT 

318 PRINT "POUR CECI ON DOIT LE 
3 PRENDRE" 

319 PRINT 

920 PRINT "UN PAP UN EN PHBSflNl 
PAR DESSUS" 
H\ PRINT 

322 PPINT "EN LONG OU EN LARGE 
HAI9 JAMAIS" 



H3 PPINT 
?14 PRINT 

^P PRINT 



'EN C'tGUNALE. 1 



UPPUVB BWK UNI TOUC 

thin am n$ 



Ml ?. . 

n- IP" 1NHYI 

n* acre n? 
m Iki 

53q print "un piuii tn vieee a h 

FtRQUE LA " 

931 PRINT 

332 PRINT ' 
TRE PION'O" 

933 PRINT 

934 PRINT ' 
ALORS VOUS ' 

935 PRINT 

936 PRINT ' 
ANCHE ET" 

937 PRINT 

938 PRINT "VOUS NE POUVEZ PAS 

939 PRINT 

940 PRINT 
ON PLUS ' 

341 PRINT 

942 PRINT 
NCHE HI 

943 PRIHT 

344 PRINT "LORS D""UME PRISE fiR 
RIVER SUR " 

345 PRIHT 

946 PRINT "UNE CfiSE DEJA OCCUPE 



"APPUVEZ SUR UNE TO'." 



"CASE DE DEPART DE '■ 



"ET SI LE PION EST 



"ETES SUR ONE CASE BL 



"VOUS NE POUVEZ PfiS 



"PRENDRE UNE CASE fcLfi 



THEN GOTO 351 



HE . 
343 IF INKEWO' 

350 GOTO 343 

351 CLS 

952 PRINT AT 8*8) "POUR LES D1FF 
ERENT3 MOUVEMENTS ' " 

353 PRINT 

954 PRINT "* SANS PRISE DE PION 

355 PRINT 

956 PRINT " - 5 POUSSE LA CAS 
E DE DEPRRT ft GAUCHE DE U 
NE CASE " 

957 PRINT 

953 PRINT " - 3 LA POUSSE fi D 
ROITE DE UNE CASE 

939 PRINT 

960 PRINT " - 6 LA DESCEND DE 
UNE CASE" 

961 PRINT 

362 PRINT " - 7 LA MONTE DE U 
NE CASE " 

963 PRINT 

964 PRINT 

365 PRINT "APPUVEZ SUR UNE TOUi" 
HE ..." 

966 IF INKE'VSO"" THEN GOTO 968 

967 GOTO 966 
963 CLS 

969 PRINT -l AVEC UNE PRISE " 
978 PRINT 



■ P POUP POUVOIP 



5 RFEND '/EPS LA 



8 PREND VERS LA 



■ 6 PREND VERS LE 



7 PREND VERS LE 



972 PRINT ■" 

F PENDPE" 

973 PRINT 

974 PRINT " 
GAUCHE" 

975 PRINT 

976 PRINT " 
DROITE" 

977 PPINT 

978 PRINT " 

973 PRINT 
930 PPINT " 
HAUT" 
331 PPINT 

982 PRINT 

983 PRINT " 
ET PROPOSE 

RTIE." 

984 PRINT 

985 PRINT "APPUVEZ SUR UNE TOUC 
966 IF INKEVIO"" THEN GOTO 933 

987 GOTO 936 

988 CLS 

933 PRINT "QUELLE VERSION VOULE 
2 VOUS: " 
930 PRINT 
391 PRINT 



-1- CARRE ENTIE 



933 PRINT " -2- CROIX GRECO 
UE" 

934 PPINT 

995 PRINT " -3- OCTOGONE" 

996 PPINT 

997 PRINT " -4- CROIX < 2EME 
VERSION ;" 

593 PRINT 

939 PRINT 

1905 PPINT "ENTREZ LE CHIFFRE DE 
SIRE" 

1006 LET H«=INKEVt 
1808 IF H*X"1" OR H*,"4" THEN GO 
1003 LET H=VAL H* 
1010 GOTO 29 
1056 FOP X=2 TO 5 
1051 LET NMMI TO 14}="*JMM" 

1093 let Ni-;;*3.2 to 5>="mmm" 

W Lfl Nf,;i-?.ll TO |4>="MMH 

tfM lei NKKil to 5)«"«*«r*" 

[Hi NEi.T K 

1105 tfet t*4 

1191 LIT ?-^: 

\\U P^ >i^ TO £ 

\\4h LIT NKKiil*t) TO [I'!" mm 



1 164 LET N|fM<£ T6 V)s"i 

H&5 lei hi ;..s.;- to. 2«' . 

liee LET HIU-3,V.i To i^>- 

M" 

1107 LET Y-V-l 

1168 LET Z"2+l 

1110 NEXT X 

1111 RETURN 

1120 FOR X=2 TO 3 

1122 LET WX.H TO 14>="» 

1124 LET NiCX+9,2 TO 5)="« 

1125 LET N*CX*9.11 TO 14)-' 



1127 LET NXX/2 TO 5 )="jMMM" 

1130 NEXT X 

1135 RETURN 

1200 CLS 

1210 PRINT "QUELLE VERSION VOULE 

Z VOUS'" 

1220 PRINT 

1225 PRINT " -1- CfiRRE ENTIER" 

1230 PRINT 

1235 PRINT ■ -2- CROIX GRECOUE 

1248 PRINT 

1245 PRINT " -3- OCTOGONE" 

1246 PRINT 

1247 PRINT " -4- CROIX <2EME V 
ERSION>" 

1258 PRINT 

1251 PRINT 

1252 PRINT "ENTREZ LE HOMBRE DES 
IRE..." 

1253 LET Ht-IHKEY» 

1254 IF HSC'l" OR H*>"4" THEN GO 
TO 1253 

1255 LET H-VflL H* 
1266 GOTO 29 

1306 SAVE "SOLITAIPe" 
1310 RUN 
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49? TONE 7 

498 TOHE 7 

499 TOHE 7 
419 TONE 9 

411 flVIEH 

412 PSE 

413 -..BRAVO .. 

414 OVIEU 

415 CTO 49 
4ir>»LBL ?7 

417 FS? VI 

418 RTN 

ii9 -mum H.S. 

428 TONE 5 



421 TOHE 1 

422 HVIEM 

423 PSE 

424 SF 82 

425 RTH 
426»LBL 28 

427 RCL 83 

428 RCL 81 

429 - 
438 Xt2 

431 STO 14 

432 RCL 84 

433 RCL 82 

434 - 

435 Xt2 

436 ST* 14 

437 RCL 14 

438 SORT 

439 STO 14 
448 RTH 
44HLBL 29 
442 -TOIJCHE. 



443 TOHE 5 

444 TOHE 3 

445 RVIEU 

446 PSE 

447 FS? 94 

448 GTO 39 

449 SF 94 

458 -CHEHILLE H.S. 

451 TONE 5 

452 TOHE 3 

453 BV1EH 

454 PSE 

455 GTO 18 
456»LBL 38 

457 RCL IHD 15 

458 XEO 31 

459 RCL IHD 15 
469 FRC 

461 198 

462 » 

463 IHT 

464 XEO 32 



465 1.5 

466 RCL 16 

467 SORT 

468 X)Y? 

469 RTH 
478 1 

471 ST* 14 

472 RTH 
4?3«LBL 31 

474 RCL 91 

475 - 

476 Xt2 

477 STO 16 

478 RTH 
479»LBL 32 
488 RCL 92 

481 - 

482 Xt2 

483 ST* 16 

484 RTH 
485*LBL 33 
486 -CARB. 



IHSUFF. 



487 AVIEH 

488 TOHE 1 

489 GTO 12 
498*LBL 34 

491 -..HINE ..- 

492 TOHE 5 

493 TONE 3 

494 PVIEH 

495 PSE 

496 GTO 39 
497*LBL 35 

498 -CORBURflHT H.S- 

499 TOHE 5 
588 TONE 3 

581 (WITH 

582 PSE 

583 SF 93 

584 RTH 
585*LBL 36 

586 RCL 14 

587 ST- IHD 16 

588 RTN 



589»LBL 37 
518 RCL 14 

511 ST* IHD 16 

512 RTH 
513*LBL 38 

514 -BETECTEUR H.S- 

515 TOHE 5 

516 TONE 2 
51? AVIEH 

518 PSE 

519 SF 81 
528 RTH 
521«L8L 39 

522 TOHE 3 

523 TOHE 3 

524 TONE 3 

525 TONE 1 

526 -RHX.38 BOON" 

52? AVIEH 

528 PSE 
529*LBL 48 
538 .END. 



LE LOGICIEL 
DE LA SEMAINE 

Drol Electronic Art 

...sur APPLE 




Le graphisme de ce jeu esl ex- 
traordinaire. Et quand je dis ex- 
traordinaire, je pese mes mots : 
arriveraun niveau dequaliteaussi 
parfait sur un APPLE qui n'aime 
pas tropmanierlescouleurs, cha- 
peaulLacouleurestd'ailleursfor- 
tement recommandee pour pou- 
voir apprecier a sa juste valeur 
touteslessubtiiitesdujeu. Les re- 
gies du jeu sont simples, enfanli- 
nes, meme i vous etes un petit 
robot qui se deplace dans des 
couloirs repartis sur trois etages. 
Vous disposez d'un pistole! qui li- 
re des projectiles de la grosseur 
d'une balle de tennis, d'un radar 
p"8Uf p6UV0lf prgVdlf Taffivee d9 

ve§ enri§rni§ §t deux fm<Amm 
son m&fmh§3 dans vetre g§§ 

pour pouvoif V8U§ fieijleieef (furl 

6te$e a I'autra, Votf=> mission (§i 
vag§ l'a§§§pt§z !) §§ (tefeule en 
trois parties. Le premier tableau 
vous oblige a rechercherunchar- 
mant bambin et son helicoptere 
qui erre dans ce dedale. Des scor- 
pions vous attaque pour vous em- 
pecher de le trouver, il vousfaudra 
les trucider. Une serie de me- 
chants volatiles en veut aussi a 
votre carcasse de robot ; si vous 
reussissez a les descendre il se 
translorme en poulet cuit, presen- 



ts sur un plat fumant et assaison- 
ne a voire gout (a I'huiledevidan- 
ge. sans doute). Le gamin retrou- 
ve, il vous faudra alors chercher 
son chien qui est muni d'un reac- 
teur et qui a tendance a jouer la 
fille de I'air. 

Ca y est. vous les avez. Rideau. 
Acte II. C'est la petite sceur avec 
son ballon vert qui estcecoup-cl, 
perdu dans un des trois couloirs, 
son compagnon a reaction est un 
crocodile, et les attaquants sont 
des jJ.ro s gnomes blancs, dont le 
chef est un petit rial n rouge a cou- 
ronne, I'air grimacant. Pourcorser 
le tout, des aimahlsvolentunpeu 
parlout elseoollent soil sur voire 
pi§t6let, §eit suf voice feaeteur, il 
taut ghan|@r fl'elaaa pauf s'an 
Q&mtamf Quanfj is petite iiil§ 
at §f§ere sent faeufjareD, Miueau 
etiateltl. Sella fei6=6i fl§§ie2af(Js 
volant bleus, ties fleehes, des 
plantes carnivores, des Kriss, des 
sabres, des brossesa dents et des 
plantes carnivores vont vous em- 
pecher de retrouver la maman 
des deux bebes egares. Astiquez 
, votre armure, huilez vos engrena- 
ges et en avant ! 



PETITES ANNONCES 
GRATUITES 



VDS ZX 81 + Imprimante SIN- 
CLAIR + 16K Memopax + cla- 
vier ABS + K7 + 9 livres sur ZX 
81 : 1500 F. Stephane 9, rue 
Davaine 92380 GARCHES. 
Tel. : 741.80.47. 

VDS console Mattel peu ser- 
vie + 5K7. Le tout 1700 F. Paul 
LAURENT 28, rue Emile Leven 
95140 GARGES LES GONES- 
SE. Tel. : 993.04.30. 

VDS pour Tl 99/4A Boitier 
d'extenslon jamais servi 
500 F, Jean Jacques MER- 
CIER Quartler de I'lsle 69470 
GOURS. 

VDSZX81 -M6Ko + Schemas 
manettes dejeux, de la sono- 
risatlon du clavier, dela haute 
resolution graphlque + nom- 
breux programmes (US + 
Francais) + jeux de poche le 
tout 1100 F. a debattre. Bruno 
BERTHIER Tel. : (7) 894.00.59 
ou (7)459.00.84. (ApreslSh). 

VDS Console Tl 99/4 A + Alim. 
220 V + Interface Perltel + 
cordon magneto + paire de 
manettes + K7 basic par sol- 
mgrne : 1800 F., 1 memoire 
32 Ko 3 incorporer dans cof- 
fret extension : 1000 F. Mon- 
sieur CANON Tel. : 371.12.71. 

pasta 24S (hauraa bureau), 

leHANOi Vt@l6AU APPLi II 
II* at lie aenlre Bregramme 
eamptaBilile eu neuveau elan 
eemptable. Aeh&te eaea : 

sion drive APPLE II. Tel. : 
203.79.26. (le soir), 

VDS jeux d'action Reflexion 
pour ORIC 1 48K prix interes- 
sant (1/4 du prix d'achat). 
Maurice RAVAT, 68, rue A. 
France 69800 SAINT PRIEST. 
Tel. : (7) 820.22.68. (18 et 
19 h). 



VDS ORIC 148Kneut + alim. + 
4 livres (manuels, program- 
mes) + 28 jeux sur K7 : 2200 F. 
(etudie toute proposition) 
GiMes HAERI Tel. (7) 

820.38.36. (apres 19 h). 

VDS pour Tl 99/4A "Les tech- 
niques des programmes de 
jeux" (2* partle) : 70 F., "Prati- 
que de I'ordinateur familiale 
Tl 99/4A" (tome 1 et 2) : 55 et 
80 F., "50 programmes pour 
Tl 99/4A" : 55 P., "Les grands 
classiques de Jeu pour votre 
Tl 99/4A" : 45 F., Revues d'in- 
formatiques + magneto K7 
RADIOLA RA 310 502/84) ■ 
250 F. Jean Michel SOIS- 
SONG Tel. :(8) 709.54.08. (le 
Week-End). 

VDS ZX 81 + alim. + clavier 
ABS + llvre "La conduite du 
ZX81". Le tout : 500 F.Emma- 
nuel NICODEME 9. rue du 
8 Mai 1945, 59172 ROEULX 
Tel. : (27) 43.33.39. 

VDS VIC 20 + 16K RAM + 
lecteur K7 + autoformation 
Basic + BONZO + adaptateur 
nolretblanc + Prise PERITEL : 
1800 P. Catherine, Tel. | (7) 
860.25.53. poste 884. (heU- 
res bureau). 

VBSPeigQO (10/83) *EXt8K 
* ei 110 (ImprlmanteJ * 3ii : 
vFa§> Sessuvarta du PQ 1300 
(tome 1 at 2) at suite eaur PQ 
lieo * 80 programme! * 2 K? 
lagisties (n° f et 2) le tag! ; 

2700 F. Francois FURL AN. 
Tel. : 848.67.02. 

VDS pour ZX 81 prog. M/C 
ZXAS : 50 F.. CALCULER III 
VECTORIEL : 80 F.. TOCL 
MERGE/RENUM 2 K7 : 50 F.. 
ZX Ass Artie : 50 F., ZX HX- 
MON : 45 F.. ZX REMLOAD ; 
45 F. Livre lang. Mach. IS : 




70 F., Lang. Mach. Trues et 
asluces : 55 F.. Graph. 3D : 
40 F.. En anglais ZX 81 Pocket 
Book - 40 F.. ZX 81 comp. : 
40 F., Mach. Lang, made sim- 
ple : 40 F.. Revue Echo Sinclair 
1 a 7 : 70 F., ORDI 5 4 nume- 
ros : 50 F.. Pour SPECTRUM 
ZX simulateur de Vol : 60 F.. 
OTHELLO/ISOLA > 80 F.. CDS 
OTHELLO : 50 F., Livre anglais 
Over the Spectrum : 70 F., 
PCW the Best : 50 P., Revue 
anglalse Yours computer 
Dec. 81 a Dec. 83 : 200 P., 
Popular Compuing Weekly 
Avril 82 a Avril 84 environ 
100 numeros. 4 F. le n°. SIN- 
CLAIR User 12 n* 82 : 120 P., 
SINCLAIR Prog. 3 numeros a 
10 F. le n°. ZX Computing 
4 numeros a 10 F. le numero. 
Pratical Computing 82/83 a 
15 F. le n°. Personnal Compu- 
terWorld9 n° 10 F. le n D , SOFT 
n° t, 4, 5, 9 a 10 F. le n°. Diver- 
ses revues Computer et Video 
Game, Personnal Computer 
news, In erf ace, Personnal 
computing today a 5 P. le n°. 

Monsieur LANouots Tel, i 
283.41,28. paste 322/323. 

Aehete 80 ft iaaia par aoi= 
meme peur Tl §§/4A: Patriek 
V6LTQT6I: l (88) 38,88,11, 

Cherche pour TI99/4A, carte 
interface RS 232 a prix inte- 
ressant. Thierry JOUAULT 
19. rue J.B. Clement 62300 
LENS. 

Recherche Module Basic 
Etendu Tl 99/4A Philippe 
CARDON, tel. : (28) 24.19.95. 



VDS Tl 99/4A + Parsec + Bur- 
ger Time +jeuxvideo2 + jeux 
retro 2 + Golf + Billard + La 
tombe du sorcier + 2 cordons 
magneto + interface pour 
branchement antenne + 6 li- 
vres de programmes ( + de 
200 prog.) + interface pour 
manette format ATARI. Valeur 
+ 4000 F , Vendu 2000 F.. ou 
echange contre ORIC AT- 
MOS. Faire offre a Marc BO- 
YER 41. rue du Rendez-vous 
75012 PARIS. Tel. : 345.76.92. 

Achate pour Tl 99/4A module 
Basic Etendu + manuel. 
Thierry GATEAU "La Tenthai- 
re" 72330 YVRE LE POLIN. 
Tel. : (43) 87.41.05. 
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ORDINATEUR FA/V11LJAL Tl 99/4 

CONSOLES ET ACCESSOIRES : 
Ofdinaieur familial Tl 99/4 
Modulateur SECAM France 
Modulateur SECAM KX 
Moduiateur SECAM GH 
CaDie liaison magneio-cassetles 
Pairc manettes jeux 
f/agneto-cassetiescompaiible 
TEXAS/PADIOLA 3vec CiDle de liaison. 
Magneto- cassettes compatible TEXAS 
marque LANSay avec caole de liaison. 



■PERIPHEmoueS: 

"Carte extension memoire 3Z K 
'Carte P code 
•UCSDftiSCal Compiler 
■UCSD Pascal Linker 
■UCSD Pascal EoMor 
'Imprimante n 99/4 par Centronix 

'PROGRAMMATION SUR DtSQUETTES : 

"Fichie'd'adresses 

"Aide M la programmation 2 

•Aldeaiapioqrammation 3 



PROGRAM MATION 
Manuel tditeur as-^mbleur 

• MINI MEMORY auec t/aite sor 
I'Hipttatron au langage ass^'mbieur 

• Extender Daiic 

• Memoire extension 17 K cxrerieu 

• Tl tOGO It 

[extension 37 K indispensable] 

ORGAWSAnON 

Conseil fmanciCT 
Gestton richief 
Gestion rapports 

SU! 'StICS 

Gestion pi wee 

MOTJULES tDUCATlOW 

AtfCKorySObtttaaton i 

Addition- Sutr.r(.i<i,nn H 
Addition- Canon 
Gasic par sol- meme 
DMrtorMttmotton 
EfrtyReacVng 
Meteor muttiplicauon 
MuHpttoitonl 
Hkak uihei 

Arte ft 1.1 p'O'ji.irrim.Tli'irp 



PR1XTTC 
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I 190.00. 

I 800.00 
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Texas Instruments 



252.00 
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252.00 


; i 


252.00 


1 1 


252.00 


u 



MODULES LOISIRS 
Conned lour 
Muncfi Man 
Othello 
Parser 
The attack 
Ti- invaders 
Jeux video I 
Jeux video II 
Yahifee 
Jeu* Retro I 
Jeux Retro II 

iMOUVEAUX LOGICIELS TEXAS 
Ret our 
du pirate 
Demon attack 
Masn 



PROGRAMMES MAGNARD : 
La ponctuatlon en Francais 
Oiviseurs PGCD - PPCM 

PROGRAMMES V1FI NATHAN : 
Garotte rnalidcuse 
Comp et rnulr 
Mots cro ises vol. I 
Mots crolses vol. 2 

PROGRAMMES COLLINS/TEXAS I 

imrod au Tl 99/4 |i| 
lmiod.au Tl 99/4(2] 
I ■-, ic hrtqUO des programmes 

Les tecririigues des programmes 
dejeux |2| 
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MODULES ROMOX : 

Motor raisers 
Anteater 
Hen pecked 
Princess and frog 

MODULES FUNWARE; 

Rao bit Rail 
Driving Demon 
Ambulance 
Saint Nicfc 
Hen House 

LI8RAIRIE TEXAS 99/4 : 
Edition SHIFT : 
Jeui et programmes - Tome 1 
Jeux et programmes - Tome 2. 
Jeux et programmes - Tome 3. 

Ed. RADIO : 

Pratique dull 99/4 -Niveau I. 
Pratique du Tl 99/4 - Niveau 2. 
50 programmes TI99 

Initiation au 'ichier basic 

EYROLLES : 

Conduite du Tl 99/WILLARD 

Mon Tl 99/4 A/CEYRAT 

P.S.I. I 

E.ercices pour Tl 99/4 -F LEVY 

a rafflcfw if n 99/4 a - j r sehan 

Inter editions , 

|Bob CONNORS) 

1 rs grand] tfaufqusj dujeu 

pour voire Tl 99/4 A 
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brcux clients dc n ,1 




cxpcdlerlcurcomm 
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Notre but ciidc voi 


i pcrmettrc dsns Ipi moll A 


venfr, de prolltcr au 




TEXAS. 






m une memoire 32 K cxtc- 


rivnr-p- qui voui per 


ncttr.i d'utlliicr le LOGO 11. 


Porter IcTIa 48 K. ( 


ett un bon rtluttat. 
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